diff --git a/hbs2-git-reposync/ReposyncMain.hs b/hbs2-git-reposync/ReposyncMain.hs index d2fce704..15a22000 100644 --- 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