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

wip, glob fixed

This commit is contained in:
voidlizard 2024-10-17 12:50:24 +03:00
parent 233ab24c9d
commit c4d1726882
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/File.hs
View File

@ -15,6 +15,8 @@ import System.FilePath
import System.FilePattern import System.FilePattern
import Data.HashSet qualified as HS import Data.HashSet qualified as HS
import Prettyprinter
import Lens.Micro.Platform import Lens.Micro.Platform
import UnliftIO import UnliftIO
import Control.Concurrent.STM qualified as STM import Control.Concurrent.STM qualified as STM
@ -67,12 +69,12 @@ entries = do
entry $ bindMatch "glob" $ \syn -> do entry $ bindMatch "glob" $ \syn -> do
(p,i,d) <- case syn of (p,i,d) <- case syn of
[] -> pure (["*"], [], ".") [] -> pure (["**/*"], ["**/.*"], ".")
[StringLike d, StringLike i, StringLike e] -> do s@[StringLike d, ListVal (StringLikeList i) ] -> do
pure ([i], [e], d) pure (i, [], d)
[StringLike d, ListVal (StringLikeList i), ListVal (StringLikeList e)] -> do s@[StringLike d, ListVal (StringLikeList i), ListVal (StringLikeList e) ] -> do
pure (i, e, d) pure (i, e, d)
_ -> throwIO (BadFormException @c nil) _ -> throwIO (BadFormException @c nil)