This commit is contained in:
Dmitry Zuikov 2023-06-27 07:53:50 +03:00
parent 198980c540
commit e116268c4a
3 changed files with 11 additions and 23 deletions

View File

@ -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")

View File

@ -30,4 +30,14 @@ TODO: git-tags-support
Поддержать теги, в т.ч. подписанные. Поддержать теги, в т.ч. подписанные.
Неподписанные возможно и так будут работать. Неподписанные возможно и так будут работать.
TODO: log-object-reorder-for-better-dedup
Вот что еще заметил: сейчас пишу в логи операции в порядке:
(коммит, зависимости). Поскольку так удачно сложилось, что гит
новые коммиты делает не дельтами, а все объекты целиком пишет,
то что бы там разработчик не мутил - сквошил, мержил, ребейзил
- итоговые блобы и деревья (снапшот проекта) — выглядят
довольно константными. таким образом, если сначала в лог
писать деревья и блобы, а в конец - коммиты, то есть шансы,
что префикс лога будет более константным, что ли. т.е при
последующем разбиении на сегменты есть шансы, что сегменты в
начале лога будут лучше дедупиться.

View File

@ -54,11 +54,6 @@ walkHashes q h = walkMerkle h (readBlock . HashRef) $ \(hr :: Either (Hash HbSyn
Right (hrr :: [HashRef]) -> do Right (hrr :: [HashRef]) -> do
forM_ hrr $ liftIO . atomically . Q.writeTQueue q forM_ hrr $ liftIO . atomically . Q.writeTQueue q
data ImportCmd = ImportCmd GitObjectType FilePath
| ImportStop
deriving (Show)
importRefLogNew :: ( MonadIO m importRefLogNew :: ( MonadIO m
, MonadUnliftIO m , MonadUnliftIO m
, MonadCatch m , MonadCatch m