From e7d4b428708b0fa74140a7a0af7d4cab1912bdf4 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Thu, 14 Nov 2024 21:45:51 -0500
Subject: Log errors more better

---
 fig-web/src/Fig/Web/LDAP.hs | 42 +++++++++++++++++++++++-------------------
 1 file changed, 23 insertions(+), 19 deletions(-)

(limited to 'fig-web/src/Fig/Web')

diff --git a/fig-web/src/Fig/Web/LDAP.hs b/fig-web/src/Fig/Web/LDAP.hs
index e9861a9..97fa9d1 100644
--- a/fig-web/src/Fig/Web/LDAP.hs
+++ b/fig-web/src/Fig/Web/LDAP.hs
@@ -16,24 +16,28 @@ resetUserPassword :: MonadIO m => Config -> Text -> Text -> m (Maybe Text)
 resetUserPassword cfg user uid = do
   let login = Text.toLower user
   password <- UUID.toText <$> liftIO UUID.nextRandom
-  exitCode <- liftIO $ Proc.withCreateProcess
-    (Proc.proc cfg.lldapCli $ unpack <$>
-     [ "-H", cfg.lldapHost
-     , "-D", cfg.lldapUser
-     , "-w", cfg.lldapPassword
-     , "user", "add", login, login <> "@users.colonq.computer"
-     , "-p", password
-     , "-f", uid
-     ])
-    \_ _ _ h -> Proc.waitForProcess h
-  liftIO $ Proc.withCreateProcess
-    (Proc.proc cfg.lldapCli $ unpack <$>
-     [ "-H", cfg.lldapHost
-     , "-D", cfg.lldapUser
-     , "-w", cfg.lldapPassword
-     , "user", "group", "add", login, "fig_users"
-     ])
-    \_ _ _ h -> void $ Proc.waitForProcess h
+  (exitCode, out0, err0) <- liftIO . flip Proc.readCreateProcessWithExitCode ""
+    . Proc.proc cfg.lldapCli $ unpack <$>
+    [ "-H", cfg.lldapHost
+    , "-D", cfg.lldapUser
+    , "-w", cfg.lldapPassword
+    , "user", "add", login, login <> "@users.colonq.computer"
+    , "-p", password
+    , "-f", uid
+    ]
+  (_, out1, err1) <- liftIO . flip Proc.readCreateProcessWithExitCode ""
+    . Proc.proc cfg.lldapCli $ unpack <$>
+    [ "-H", cfg.lldapHost
+    , "-D", cfg.lldapUser
+    , "-w", cfg.lldapPassword
+    , "user", "group", "add", login, "fig_users"
+    ]
   case exitCode of
     ExitSuccess -> pure $ Just password
-    ExitFailure _ -> pure Nothing
+    ExitFailure _ -> do
+      log . pack $ mconcat
+        [ "LDAP CLI error:\n"
+        , out0, err0
+        , out1, err1
+        ]
+      pure Nothing
-- 
cgit v1.2.3