wip, cant do any faster

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

@@ -20,8 +20,6 @@ import UnliftIO
 import Control.Concurrent.STM qualified as STM
 import Streaming.Prelude qualified as S
 
-import Data.List.Split (chunksOf)
-
 glob :: forall m . MonadIO m
      => [FilePattern]           -- ^ search patterns
      -> [FilePattern]           -- ^ ignore patterns
@@ -30,25 +28,14 @@ glob :: forall m . MonadIO m
      -> m ()
 
 glob pat ignore dir action = do
-
   q <- newTQueueIO
-
   void $ liftIO (async $ go q dir >> atomically (writeTQueue q Nothing))
-
+  fix $ \next -> do
-  flip runContT pure do
+    atomically (readTQueue q) >>= \case
-    callCC \exit -> do
+      Nothing -> pure ()
-      fix $ \next -> do
+      Just x -> do
-        e <- atomically do
+        r <- action x
-                void (peekTQueue q)
+        when r next
-                STM.flushTQueue q
-
-        for_ e $ \case
-          Nothing -> exit ()
-          Just x -> do
-            r <- lift (action x)
-            unless r (exit ())
-
-        next
 
   where
 
@@ -72,7 +59,6 @@ glob pat ignore dir action = do
 
         forConcurrently_ co (go q)
 
-
 entries :: forall c m . ( IsContext c
                         , Exception (BadFormException c)
                         , MonadUnliftIO m)