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

wip, fix

This commit is contained in:
voidlizard 2025-07-30 16:54:17 +03:00
parent 6c3dc29041
commit b57919aa85
2 changed files with 11 additions and 5 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

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

14
hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Index.hs
View File

@ -49,16 +49,21 @@ ncqLookupIndex hx (mmaped, nway) = do
{-# INLINE ncqLookupIndex #-}
ncqLocate :: MonadUnliftIO m => NCQStorage3 -> HashRef -> m (Maybe Location)
ncqLocate me@NCQStorage3{..} href = ncqOperation me (pure Nothing) do
ncqLocate_ :: MonadUnliftIO m => Bool -> NCQStorage3 -> HashRef -> m (Maybe Location)
ncqLocate_ f me@NCQStorage3{..} href = ncqOperation me (pure Nothing) do
answ <- newEmptyTMVarIO
atomically do
-- modifyTVar ncqWrites succ
when f $ modifyTVar ncqWrites succ
writeTQueue ncqReadReq (href, answ)
atomically $ takeTMVar answ
ncqLocate :: MonadUnliftIO m => NCQStorage3 -> HashRef -> m (Maybe Location)
ncqLocate me href = ncqOperation me (pure Nothing) do
ncqLocate_ True me href
ncqIndexFile :: MonadUnliftIO m => NCQStorage3 -> DataFile FileKey -> m (Maybe FilePath)
ncqIndexFile n fk = runMaybeT do
@ -154,7 +159,8 @@ ncqIndexCompactStep me@NCQStorage3{..} = withSem ncqServiceSem $ flip runContT p
ts <- liftIO (PFS.getFileStatus idx1Name) <&> PFS.modificationTimeHiRes
result <- lift $ nwayWriteBatch ncqIndexAllocForMerge dir "merged-.cq$" e
-- result <- lift $ nwayWriteBatch ncqIndexAllocForMerge dir "merged-.cq$" e
result <- lift $ nwayWriteBatch ncqIndexAlloc dir "merged-.cq$" e
liftIO $ PFS.setFileTimesHiRes result ts ts