Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Use batteries 2.0 for ohmPersona

  • Loading branch information...
commit c457af5357aa6dd2dbc62640b46e4a05449019dc 1 parent 7d4e53f
@VictorNicollet authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  ohmPersona/ohmPersona.ml
View
2  ohmPersona/ohmPersona.ml
@@ -51,7 +51,7 @@ let init_full ?(cookie="PERSONA") ?(urlPrefix="persona/") ~server ~onLogin ~onLo
val login = Action.register server (urlPrefix ^ "login") Action.Args.none begin fun req res ->
let! assertion = req_or (return res)
- (Action.Convenience.get_json req |> BatOption.bind Fmt.String.of_json_safe) in
+ (Action.Convenience.get_json req |> flip BatOption.bind Fmt.String.of_json_safe) in
let () = Util.log "Assertion: %s" assertion in
Please sign in to comment.
Something went wrong with that request. Please try again.