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

wip, mac os x shit

This commit is contained in:
voidlizard 2025-08-22 21:20:11 +03:00
parent 8d58c5d818
commit 2ab1535802
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Run.hs
View File

@ -247,7 +247,14 @@ ncqStorageRun ncq@NCQStorage{..} = withSem ncqRunSem $ flip runContT pure do
-- debug $ viaShow s -- debug $ viaShow s
case s of case s of
RunFin mfh -> do RunFin mfh -> do
liftIO $ for_ mfh closeFd liftIO $ for_ mfh $ \(fk,fh) -> do
ss <- appendTailSection fh
fileSynchronisePortable fh
flushReplaces fk
ncqStateUpdate ncq (ncqStateAddFact (P (PData (DataFile fk) ss)))
ncqStateDump ncq
closeFd fh
rest <- readTVarIO ncqWriteQ <&> Seq.length rest <- readTVarIO ncqWriteQ <&> Seq.length
debug $ "exit storage" <+> pretty rest debug $ "exit storage" <+> pretty rest
atomically $ pollSTM indexer >>= maybe STM.retry (const none) atomically $ pollSTM indexer >>= maybe STM.retry (const none)
@ -299,7 +306,7 @@ ncqStorageRun ncq@NCQStorage{..} = withSem ncqRunSem $ flip runContT pure do
atomically $ writeTQueue indexQ fk atomically $ writeTQueue indexQ fk
loop RunNew loop RunNew
| not continue -> loop (RunFin (Just fh)) | not continue -> loop (RunFin (Just (fk,fh)))
| otherwise -> loop $ RunWrite (fk, fh, rest, total) | otherwise -> loop $ RunWrite (fk, fh, rest, total)
@ -445,7 +452,7 @@ data RunSt =
RunNew RunNew
| RunWrite (FileKey, Fd, Int, Int) | RunWrite (FileKey, Fd, Int, Int)
| RunSync (FileKey, Fd, Int, Int, Bool) | RunSync (FileKey, Fd, Int, Int, Bool)
| RunFin (Maybe Fd) | RunFin (Maybe (FileKey, Fd))
deriving stock Show deriving stock Show