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
|
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
|
||||||
|
|
Loading…
Reference in New Issue