diff --git a/hbs2-git/git-hbs2/GitRemoteMain.hs b/hbs2-git/git-hbs2/GitRemoteMain.hs index 90719488..0d347a31 100644 --- a/hbs2-git/git-hbs2/GitRemoteMain.hs +++ b/hbs2-git/git-hbs2/GitRemoteMain.hs @@ -151,7 +151,7 @@ loop args = do let cmd = BS.words str -- 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 @@ -161,6 +161,8 @@ loop args = do liftIO $ atomically $ writeTVar batch False sendEol when isBatch next + unless isBatch do + updateLocalState ref ["capabilities"] -> do trace $ "send capabilities" <+> pretty (BS.unpack capabilities)