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

wip, okay

This commit is contained in:
Dmitry Zuikov 2024-08-02 18:14:06 +03:00
parent e5ad42b2a3
commit cefdff1aa0
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
hbs2-cli/lib/Data/Config/Suckless/Script/File.hs
View File

@ -33,13 +33,22 @@ glob pat ignore dir action = do
q <- newTQueueIO q <- newTQueueIO
w <- liftIO (async $ go q dir >> atomically (writeTQueue q Nothing)) void $ liftIO (async $ go q dir >> atomically (writeTQueue q Nothing))
flip runContT pure do
callCC \exit -> do
fix $ \next -> do fix $ \next -> do
e <- atomically (readTQueue q) e <- atomically do
case e of void (peekTQueue q)
Nothing -> pure () STM.flushTQueue q
Just x -> void (action x) >> next
for_ e $ \case
Nothing -> exit ()
Just x -> do
r <- lift (action x)
unless r (exit ())
next
where where