debug

2024-03-06 18:37:51 +03:00 · 2024-03-06 18:37:51 +03:00 · c6d6313b09
parent fc9b0ffb40
commit c6d6313b09
1 changed files with 3 additions and 1 deletions
--- a/hbs2-git-reposync/ReposyncMain.hs
+++ b/hbs2-git-reposync/ReposyncMain.hs
@ -267,9 +267,11 @@ runSync = do
                             ("GIT_HTTP_EXPORT_ALL", "")
                          ]

-                 let p = shell "/usr/bin/env git-http-backend" & setEnv env & setStderr closed
+                 let p = shell "/usr/bin/env git-http-backend" & setEnv env -- & setStderr closed
                 (code, out) <- readProcessStdout p

+                 liftIO $ LBS.putStrLn out
+
                 (s, h, body) <- parseResp out

                 let st = fromMaybe status200 s