From f7f404fd94aa2ed0bcdad7593a22dac7a39b4529 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Sun, 2 Feb 2025 20:35:28 +0300 Subject: [PATCH] compiles --- .../suckless-conf/lib/Data/Config/Suckless/System.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/System.hs b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/System.hs index 52559d2e..7c5cc6e0 100644 --- a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/System.hs +++ b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/System.hs @@ -85,9 +85,9 @@ home :: MonadIO m => m FilePath home = liftIO D.getHomeDirectory data DirEntry = - EntryFile { entryPath :: FilePath } - | EntryDir { entryPath :: FilePath } - | EntryOther { entryPath :: FilePath } + EntryFile { dirEntryPath :: FilePath } + | EntryDir { dirEntryPath :: FilePath } + | EntryOther { dirEntryPath :: FilePath } dirFiles :: MonadIO m => FilePath -> m [FilePath] dirFiles d = S.toList_ $ do