From 749d4fe04f9330a06c9fbe5614c2a6a5f5786071 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Fri, 2 Aug 2024 19:22:28 +0300 Subject: [PATCH] wip --- hbs2-cli/lib/Data/Config/Suckless/Script/File.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/hbs2-cli/lib/Data/Config/Suckless/Script/File.hs b/hbs2-cli/lib/Data/Config/Suckless/Script/File.hs index e989932d..83d70ebd 100644 --- a/hbs2-cli/lib/Data/Config/Suckless/Script/File.hs +++ b/hbs2-cli/lib/Data/Config/Suckless/Script/File.hs @@ -54,10 +54,9 @@ glob pat ignore dir action = do co' <- (try @_ @IOError $ listDirectory f) <&> fromRight mempty - let co = [ normalise (f x) | x <- co' ] - & filter (not . skip) - - forConcurrently_ co (go q) + forConcurrently_ co' $ \x -> do + let p = normalise (f x) + unless (skip p) (go q p) entries :: forall c m . ( IsContext c , Exception (BadFormException c)