voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix

This commit is contained in:
voidlizard 2025-07-30 21:03:45 +03:00
parent 8d7728ad71
commit e45c507f80
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Fossil.hs
View File

@ -73,7 +73,7 @@ ncqFossilMergeStep me@NCQStorage3{..} = withSem ncqServiceSem $ flip runContT p
let fik = coerce fi let fik = coerce fi
writeFiltered me (ncqGetFileName me fi) fd $ \_ _ k _ -> do writeFiltered me (ncqGetFileName me fi) fd $ \_ _ k _ -> do
ncqLocate_ False me k >>= \case ncqLocate_ False me k >>= \case
Nothing -> pure True Nothing -> pure False
Just (InMemory{}) -> pure False Just (InMemory{}) -> pure False
Just (InFossil fk _ _) -> do Just (InFossil fk _ _) -> do
let beWritten = fik >= fk let beWritten = fik >= fk