Commit 09ae493c authored by Stephane Glondu's avatar Stephane Glondu Committed by Stéphane Glondu

Bugfix: allow multiple authentications in a row

parent bedb9b5d
Pipeline #98355 passed with stages
in 24 minutes and 57 seconds
......@@ -38,8 +38,8 @@ let run_post_login_handler auth_system f =
match%lwt Eliom_reference.get auth_env with
| None -> Printf.ksprintf failwith "%s handler was invoked without environment" auth_system
| Some (uuid, a, cont) ->
let%lwt () = Eliom_reference.unset auth_env in
let authenticate name =
let%lwt () = Eliom_reference.unset auth_env in
let user = { user_domain = a.auth_instance; user_name = name } in
match uuid with
| None -> Eliom_reference.set Web_state.site_user (Some user)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment