From 2975b7e20a35ecaff0619af133068238021a8c5b Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Thu, 14 Nov 2024 21:54:55 -0500 Subject: Add some logging --- fig-web/src/Fig/Web.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/fig-web/src/Fig/Web.hs b/fig-web/src/Fig/Web.hs index 5d32f75..37a1991 100644 --- a/fig-web/src/Fig/Web.hs +++ b/fig-web/src/Fig/Web.hs @@ -96,9 +96,11 @@ app cfg cmds liveEvents currentlyLive = do let user = Text.toLower auth.name LDAP.resetUserPassword cfg user auth.id >>= \case Nothing -> do + log "Failed to register user" Sc.status status500 Sc.text "failed to register" Just pass -> do + log "Successfully registered user, responding..." Sc.text . Text.L.fromStrict $ user <> " " <> pass Sc.get "/api/check" $ authed cfg \auth -> do Sc.json @[Text] [auth.id, auth.name] -- cgit v1.2.3