From fadd913693347ec6b599bb200c60ace770a3e03e Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Fri, 24 Mar 2023 13:00:07 +0300
Subject: [PATCH] code sweep + fixme/log

---
 .fixme/log                         |  4 +++-
 hbs2-git/git-hbs2/GitRemoteMain.hs | 11 -----------
 2 files changed, 3 insertions(+), 12 deletions(-)

diff --git a/.fixme/log b/.fixme/log
index fd80acc7..b0724da0 100644
--- a/.fixme/log
+++ b/.fixme/log
@@ -343,4 +343,6 @@ fixme-del "2anS6WhycQ"
 (fixme-set "workflow" "test" "5kY978Vrdx")
 fixme-del "8Riz5xoHE7"
 fixme-del "8qJW8BYV9A"
-fixme-del "HFhJ2y4fFH"
\ No newline at end of file
+fixme-del "HFhJ2y4fFH"
+(fixme-set "workflow" "done" "98wKurRncg")
+(fixme-set "workflow" "done" "98wKurRncg")
\ No newline at end of file
diff --git a/hbs2-git/git-hbs2/GitRemoteMain.hs b/hbs2-git/git-hbs2/GitRemoteMain.hs
index cc396c75..8acff2bf 100644
--- a/hbs2-git/git-hbs2/GitRemoteMain.hs
+++ b/hbs2-git/git-hbs2/GitRemoteMain.hs
@@ -106,10 +106,6 @@ loop args = do
   --FIXME: git-fetch-second-time
   -- Разобраться, почему git fetch срабатывает со второго раза
 
-  -- FIXME: git-push-always-up-to-date
-  --  Разобраться, почему git push всегда говорит
-  --  , что всё up-to-date
-
   checkRef <- readRef ref <&> isJust
 
   unless checkRef do
@@ -133,9 +129,6 @@ loop args = do
 
   jobz <- liftIO newTQueueIO
 
-  -- TODO: check-if-fetch-really-works
-  -- TODO: check-if-fetch-actually-works
-
   jobNumT <- liftIO $ newTVarIO 0
   liftIO $ atomically $ for_ hashes $ \o@(_,gh,_) -> do
     unless (HashSet.member gh existed) do
@@ -167,8 +160,6 @@ loop args = do
     case cmd of
       [] -> do
         liftIO $ atomically $ writeTVar batch False
-        -- -- FIXME: wtf
-        -- when isBatch next
         sendEol
         when isBatch next
 
@@ -206,12 +197,10 @@ loop args = do
         next
 
       ["list","for-push"] -> do
-        -- FIXME: send-head-before-update
         for_ (LBS.lines hdRefOld) (sendLn . LBS.toStrict)
         sendEol
         next
 
-      -- TODO: check-if-git-push-works
       ["fetch", sha1, x] -> do
         trace $ "fetch" <+> pretty (BS.unpack sha1) <+> pretty (BS.unpack x)
         liftIO $ atomically $ writeTVar batch True