voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

debug

This commit is contained in:
Dmitry Zuikov 2024-03-06 18:37:51 +03:00
parent fc9b0ffb40
commit c6d6313b09
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-git-reposync/ReposyncMain.hs
View File

@ -267,9 +267,11 @@ runSync = do
("GIT_HTTP_EXPORT_ALL", "") ("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 (code, out) <- readProcessStdout p
liftIO $ LBS.putStrLn out
(s, h, body) <- parseResp out (s, h, body) <- parseResp out
let st = fromMaybe status200 s let st = fromMaybe status200 s