From feaf73e8f9a08c38a5b532471a3a9a8248314e36 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 6 Mar 2024 18:40:14 +0300 Subject: [PATCH] debug --- hbs2-git-reposync/ReposyncMain.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/hbs2-git-reposync/ReposyncMain.hs b/hbs2-git-reposync/ReposyncMain.hs index 15a22000..7621d810 100644 --- a/hbs2-git-reposync/ReposyncMain.hs +++ b/hbs2-git-reposync/ReposyncMain.hs @@ -270,6 +270,7 @@ runSync = do let p = shell "/usr/bin/env git-http-backend" & setEnv env -- & setStderr closed (code, out) <- readProcessStdout p + -- FIXME: remove liftIO $ LBS.putStrLn out (s, h, body) <- parseResp out