let private registrationHandler =
    fun(context: HttpContext) ->
        async {
            let! data = context.BindJson<RegistrationRequest>()
            let response = register data |> function
                                         | Success profile -> profile
                                         | Failure         -> ???
            return! json response context
        }