From e116268c4a2fbbf2936d8567ff98fac0e5b4a5e2 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Tue, 27 Jun 2023 07:53:50 +0300
Subject: [PATCH] fixme

---
 .fixme/log                      | 17 -----------------
 docs/todo/hbs2-git-new-repo.txt | 12 +++++++++++-
 hbs2-git/lib/HBS2Git/Import.hs  |  5 -----
 3 files changed, 11 insertions(+), 23 deletions(-)

diff --git a/.fixme/log b/.fixme/log
index 094bca2c..e69de29b 100644
--- a/.fixme/log
+++ b/.fixme/log
@@ -1,17 +0,0 @@
-
-fixme-del "6icSdk42Hh"
-fixme-del "7GYHNAF42M"
-(fixme-set "assigned" "voidlizard" "FZGKvz88es")
-(fixme-set "workflow" "test" "FZGKvz88es")
-fixme-del "WF8CAAquxi"
-fixme-del "8xj5zp4QZZ"
-(fixme-set "assigned" "voidlizard" "DUNRtahyRD")
-(fixme-set "workflow" "test" "DUNRtahyRD")
-(fixme-set "assigned" "voidlizard" "AC5bnAhnVX")
-(fixme-set "workflow" "test" "AC5bnAhnVX")
-(fixme-set "assigned" "voidlizard" "5hVRYNZ5Zi")
-(fixme-set "workflow" "test" "5hVRYNZ5Zi")
-(fixme-set "workflow" "test" "C2frS5vWsz")
-(fixme-set "assigned" "voidlizard" "C2frS5vWsz")
-fixme-del "294eXyFaR4"
-(fixme-set "workflow" "backlog" "7xDX6WiFrU")
\ No newline at end of file
diff --git a/docs/todo/hbs2-git-new-repo.txt b/docs/todo/hbs2-git-new-repo.txt
index 2a4e9ab7..2d4e3f4a 100644
--- a/docs/todo/hbs2-git-new-repo.txt
+++ b/docs/todo/hbs2-git-new-repo.txt
@@ -30,4 +30,14 @@ TODO: git-tags-support
   Поддержать теги, в т.ч. подписанные.
   Неподписанные возможно  и так будут работать.
 
-
+TODO: log-object-reorder-for-better-dedup
+ Вот что еще заметил: сейчас пишу в логи операции в порядке:
+ (коммит, зависимости). Поскольку так удачно сложилось, что гит
+ новые коммиты делает не дельтами, а все объекты целиком пишет,
+ то что бы там разработчик не мутил - сквошил, мержил, ребейзил
+ - итоговые блобы и деревья (снапшот проекта) — выглядят
+ довольно константными.  таким образом, если сначала в лог
+ писать деревья и блобы, а в конец - коммиты,  то есть шансы,
+ что префикс лога будет более константным, что ли. т.е при
+ последующем разбиении на сегменты есть шансы, что сегменты в
+ начале лога будут лучше дедупиться.
diff --git a/hbs2-git/lib/HBS2Git/Import.hs b/hbs2-git/lib/HBS2Git/Import.hs
index ea788fc0..e2c211c7 100644
--- a/hbs2-git/lib/HBS2Git/Import.hs
+++ b/hbs2-git/lib/HBS2Git/Import.hs
@@ -54,11 +54,6 @@ walkHashes q h = walkMerkle h (readBlock . HashRef) $ \(hr :: Either (Hash HbSyn
     Right (hrr :: [HashRef]) -> do
        forM_ hrr $ liftIO . atomically . Q.writeTQueue q
 
-
-data ImportCmd = ImportCmd GitObjectType FilePath
-               | ImportStop
-               deriving (Show)
-
 importRefLogNew :: ( MonadIO m
                    , MonadUnliftIO m
                    , MonadCatch m