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 2024-08-02 19:22:28 +03:00
parent efab3b7f01
commit 749d4fe04f
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -54,10 +54,9 @@ glob pat ignore dir action = do
co' <- (try @_ @IOError $ listDirectory f) co' <- (try @_ @IOError $ listDirectory f)
<&> fromRight mempty <&> fromRight mempty
let co = [ normalise (f </> x) | x <- co' ] forConcurrently_ co' $ \x -> do
& filter (not . skip) let p = normalise (f </> x)
unless (skip p) (go q p)
forConcurrently_ co (go q)
entries :: forall c m . ( IsContext c entries :: forall c m . ( IsContext c
, Exception (BadFormException c) , Exception (BadFormException c)