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

wip102

This commit is contained in:
Dmitry Zuikov 2023-03-24 17:15:26 +03:00
parent eaeaaf1685
commit 2648382ad9
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/git-hbs2/GitRemoteMain.hs
View File

@ -151,7 +151,7 @@ loop args = do
let cmd = BS.words str let cmd = BS.words str
-- trace $ pretty (fmap BS.unpack cmd) -- trace $ pretty (fmap BS.unpack cmd)
-- hPrint stderr $ show $ pretty (fmap BS.unpack cmd) hPrint stderr $ show $ pretty (fmap BS.unpack cmd)
-- --
isBatch <- liftIO $ readTVarIO batch isBatch <- liftIO $ readTVarIO batch
@ -161,6 +161,8 @@ loop args = do
liftIO $ atomically $ writeTVar batch False liftIO $ atomically $ writeTVar batch False
sendEol sendEol
when isBatch next when isBatch next
unless isBatch do
updateLocalState ref
["capabilities"] -> do ["capabilities"] -> do
trace $ "send capabilities" <+> pretty (BS.unpack capabilities) trace $ "send capabilities" <+> pretty (BS.unpack capabilities)