SHARE
TWEET

Untitled

a guest Oct 12th, 2017 51 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. let private registrationHandler =
  2.     fun(context: HttpContext) ->
  3.         async {
  4.             let! data = context.BindJson<RegistrationRequest>()
  5.             let response = register data |> function
  6.                                          | Success profile -> profile
  7.                                          | Failure         -> ???
  8.             return! json response context
  9.         }
RAW Paste Data
Top