User authentication and session management for web applications
auth: rename get_or_create_user → ensure_user (merlint E331)
+2
-2
+2
-2
lib/auth.ml
+2
-2
lib/auth.ml
···
354
354
(* Find or create a user from OAuth userinfo, handling concurrent races.
355
355
Requires a verified email — returns Error if the provider did not supply
356
356
one or if email_verified is false. *)
357
-
let get_or_create_user store ~provider ~ui =
357
+
let ensure_user store ~provider ~ui =
358
358
let provider_uid = ui.Oauth.uid in
359
359
match (ui.Oauth.email, ui.email_verified) with
360
360
| None, _ | _, false ->
···
404
404
let provider =
405
405
Oauth.provider_name cfg.session.oauth_provider
406
406
in
407
-
match get_or_create_user store ~provider ~ui with
407
+
match ensure_user store ~provider ~ui with
408
408
| Error e ->
409
409
Log.warn (fun m -> m "callback: %s" e);
410
410
Respond.Response.bad_request e