From de9a8b02ce203b7bf75730b6f44bd0b4d915b682 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Fri, 24 Mar 2023 13:05:47 +0300
Subject: [PATCH] code cleanup

---
 hbs2-git/git-hbs2/GitRemoteMain.hs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/hbs2-git/git-hbs2/GitRemoteMain.hs b/hbs2-git/git-hbs2/GitRemoteMain.hs
index 8acff2bf..07671b5f 100644
--- a/hbs2-git/git-hbs2/GitRemoteMain.hs
+++ b/hbs2-git/git-hbs2/GitRemoteMain.hs
@@ -212,7 +212,6 @@ loop args = do
         let pu = fmap (fromString' . BS.unpack) bra
         liftIO $ atomically $ writeTVar batch True
         pushed <- push ref pu
-        hPrint stderr (pretty pushed)
         case pushed of
           Nothing  -> sendEol
           Just re -> sendLn [qc|ok {pretty re}|]