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

compiles

This commit is contained in:
voidlizard 2025-02-02 20:35:28 +03:00
parent 0f6fc6223c
commit f7f404fd94
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
miscellaneous/suckless-conf/lib/Data/Config/Suckless/System.hs
View File

@ -85,9 +85,9 @@ home :: MonadIO m => m FilePath
home = liftIO D.getHomeDirectory home = liftIO D.getHomeDirectory
data DirEntry = data DirEntry =
EntryFile { entryPath :: FilePath } EntryFile { dirEntryPath :: FilePath }
| EntryDir { entryPath :: FilePath } | EntryDir { dirEntryPath :: FilePath }
| EntryOther { entryPath :: FilePath } | EntryOther { dirEntryPath :: FilePath }
dirFiles :: MonadIO m => FilePath -> m [FilePath] dirFiles :: MonadIO m => FilePath -> m [FilePath]
dirFiles d = S.toList_ $ do dirFiles d = S.toList_ $ do