From c6d6313b09a54ed3d7ef900abac0c12040d4ed7f Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Wed, 6 Mar 2024 18:37:51 +0300
Subject: [PATCH] debug

---
 hbs2-git-reposync/ReposyncMain.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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