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

wip

This commit is contained in:
Dmitry Zuikov 2023-01-28 10:39:47 +03:00
parent 30ac04d0a6
commit a73dfc5720
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
hbs2-storage-simple/lib/HBS2/Storage/Simple.hs
View File

@ -153,19 +153,20 @@ simpleStorageWorker ss = do
Just a -> a >> next Just a -> a >> next
killer <- async $ forever $ do killer <- async $ forever $ do
pause ( 20 :: Timeout 'Seconds ) -- FIXME: setting pause ( 30 :: Timeout 'Seconds ) -- FIXME: setting
simpleAddTask ss $ do
atomically $ do atomically $ do
alive <- readTVar ( ss ^. storageMMapedLRU ) alive <- readTVar ( ss ^. storageMMapedLRU )
mmaped <- readTVar ( ss ^. storageMMaped ) mmaped <- readTVar ( ss ^. storageMMaped )
let survived = mmaped `HashMap.intersection` alive let survived = mmaped `HashMap.intersection` alive
writeTVar ( ss ^. storageMMaped ) survived writeTVar ( ss ^. storageMMaped ) survived
killerLRU <- async $ forever $ do killerLRU <- async $ forever $ do
pause ( 5 :: Timeout 'Seconds ) -- FIXME: setting pause ( 10 :: Timeout 'Seconds ) -- FIXME: setting
atomically $ writeTVar ( ss ^. storageMMapedLRU ) mempty atomically $ writeTVar ( ss ^. storageMMapedLRU ) mempty
(_, e) <- waitAnyCatchCancel [ops,killer, killerLRU] (_, e) <- waitAnyCatchCancel [ops,killer, killerLRU]