Permalink
Browse files

Use batteries 2.0 for ohmPersona

  • Loading branch information...
1 parent 7d4e53f commit c457af5357aa6dd2dbc62640b46e4a05449019dc @VictorNicollet committed Jul 23, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 ohmPersona/ohmPersona.ml
View
@@ -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

0 comments on commit c457af5

Please sign in to comment.