wip, rewrite glob, slow

2024-08-02 14:05:16 +03:00 · 2024-08-02 14:05:16 +03:00 · 91a9739ca7
parent a90a97a5a7
commit 91a9739ca7
1 changed files with 2 additions and 2 deletions
--- a/hbs2-cli/lib/Data/Config/Suckless/Script/File.hs
+++ b/hbs2-cli/lib/Data/Config/Suckless/Script/File.hs
@ -40,7 +40,7 @@ glob pat ignore dir action = do
          next (rest <> found)
        else do
          isF <- liftIO (doesFileExist p)
-          when (matches pat p && not (skip p) ) do
+          when (isF && matches pat p ) do
            void $ action p
          next rest