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

code cleanup

This commit is contained in:
Dmitry Zuikov 2023-03-24 13:05:47 +03:00
parent fadd913693
commit de9a8b02ce
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hbs2-git/git-hbs2/GitRemoteMain.hs
View File

@ -212,7 +212,6 @@ loop args = do
let pu = fmap (fromString' . BS.unpack) bra let pu = fmap (fromString' . BS.unpack) bra
liftIO $ atomically $ writeTVar batch True liftIO $ atomically $ writeTVar batch True
pushed <- push ref pu pushed <- push ref pu
hPrint stderr (pretty pushed)
case pushed of case pushed of
Nothing -> sendEol Nothing -> sendEol
Just re -> sendLn [qc|ok {pretty re}|] Just re -> sendLn [qc|ok {pretty re}|]