From 61cccbd5d5ea8983c84c32735055ea3f66be3119 Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Fri, 17 Jan 2025 11:58:25 +0300
Subject: [PATCH] wip

---
 hbs2-git3/app/GitRemoteHelper.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/hbs2-git3/app/GitRemoteHelper.hs b/hbs2-git3/app/GitRemoteHelper.hs
index b9e86bcf..ac2c6489 100644
--- a/hbs2-git3/app/GitRemoteHelper.hs
+++ b/hbs2-git3/app/GitRemoteHelper.hs
@@ -93,7 +93,7 @@ localDict = makeDict @C do
     sendLine ""
 
   entry $ bindMatch "r:push" $ nil_ $ splitPushArgs $ \pushFrom pushTo -> lift do
-    notice $ pretty pushFrom <+> pretty pushTo
+    notice $ pretty $ [qc|ok {pretty pushTo}|]
     sendLine [qc|ok {pretty pushTo}|]
 
   entry $ bindMatch "r:" $ nil_ $ \syn -> lift do
@@ -159,7 +159,9 @@ main =  flip runContT pure do
           next Plain
 
         _ -> do
-          liftIO exitSuccess
+          sendLine ""
+          next Plain
+          -- liftIO exitSuccess
 
 -- debugPrefix :: LoggerEntry -> LoggerEntry
 debugPrefix = toStderr . logPrefix "[debug] "