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

Revert "wip, mac os x shit" 

This reverts commit 2ab1535802.
This commit is contained in:
voidlizard 2025-08-22 21:22:15 +03:00
parent 2ab1535802
commit c3f65af033
1 changed files with 3 additions and 10 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,14 +247,7 @@ 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 $ \(fk,fh) -> do liftIO $ for_ mfh closeFd
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)
@ -306,7 +299,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 (fk,fh))) | not continue -> loop (RunFin (Just fh))
| otherwise -> loop $ RunWrite (fk, fh, rest, total) | otherwise -> loop $ RunWrite (fk, fh, rest, total)
@ -452,7 +445,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 (FileKey, Fd)) | RunFin (Maybe Fd)
deriving stock Show deriving stock Show