From 2648382ad9799d88e21f660adfa64cf7f61dbaf9 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Fri, 24 Mar 2023 17:15:26 +0300
Subject: [PATCH] wip102

---
 hbs2-git/git-hbs2/GitRemoteMain.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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)