mirror of https://github.com/voidlizard/hbs2
fixme
This commit is contained in:
parent
198980c540
commit
e116268c4a
17
.fixme/log
17
.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")
|
|
@ -30,4 +30,14 @@ TODO: git-tags-support
|
|||
Поддержать теги, в т.ч. подписанные.
|
||||
Неподписанные возможно и так будут работать.
|
||||
|
||||
|
||||
TODO: log-object-reorder-for-better-dedup
|
||||
Вот что еще заметил: сейчас пишу в логи операции в порядке:
|
||||
(коммит, зависимости). Поскольку так удачно сложилось, что гит
|
||||
новые коммиты делает не дельтами, а все объекты целиком пишет,
|
||||
то что бы там разработчик не мутил - сквошил, мержил, ребейзил
|
||||
- итоговые блобы и деревья (снапшот проекта) — выглядят
|
||||
довольно константными. таким образом, если сначала в лог
|
||||
писать деревья и блобы, а в конец - коммиты, то есть шансы,
|
||||
что префикс лога будет более константным, что ли. т.е при
|
||||
последующем разбиении на сегменты есть шансы, что сегменты в
|
||||
начале лога будут лучше дедупиться.
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue