diff options
Diffstat (limited to 'fig-web/src/Fig/Web.hs')
| -rw-r--r-- | fig-web/src/Fig/Web.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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] |