From 3b9bb622c57f306c651164fa4f08bbcb29edfb6c Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Sun, 19 Jan 2025 21:01:39 +0300
Subject: [PATCH] wip,fix

---
 hbs2-git3/lib/HBS2/Git3/Run.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hbs2-git3/lib/HBS2/Git3/Run.hs b/hbs2-git3/lib/HBS2/Git3/Run.hs
index ad87519a..292c3ca5 100644
--- a/hbs2-git3/lib/HBS2/Git3/Run.hs
+++ b/hbs2-git3/lib/HBS2/Git3/Run.hs
@@ -327,7 +327,7 @@ theDict = do
                 found <- liftIO $ binarySearchBS 56 (BS.take 20 . BS.drop 4) (coerce h) file
                 liftIO $ notice $ pretty h <+> pretty (isJust found)
 
-        entry $ bindMatch "reflog:index:search" $ nil_ $ \syn -> lift do
+        entry $ bindMatch "reflog:index:search" $ nil_ $ \syn -> lift $ connectedDo do
 
           let (_, argz) = splitOpts [] syn
 
@@ -453,7 +453,7 @@ theDict = do
           _ -> throwIO (BadFormException @C nil)
 
         entry $ bindMatch "git:commit:list:objects:new" $ nil_ $ \case
-          [ StringLike what ] -> lift do
+          [ StringLike what ] -> lift $ connectedDo do
 
             commit  <- gitRevParseThrow what
 
@@ -487,7 +487,7 @@ theDict = do
 
           _ -> throwIO (BadFormException @C nil)
 
-        entry $ bindMatch "git:list:objects:new" $ nil_ $ \syn -> lift do
+        entry $ bindMatch "git:list:objects:new" $ nil_ $ \syn -> lift $ connectedDo do
           let (opts,argz) = splitOpts [] syn
 
           let what = headDef "HEAD" [ x | StringLike x <- argz ]