diff options
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Config/PlainConfig.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Config/PlainConfig.hs b/XMonad/Config/PlainConfig.hs index dc0f178..f1ebf1d 100644 --- a/XMonad/Config/PlainConfig.hs +++ b/XMonad/Config/PlainConfig.hs @@ -471,7 +471,8 @@ baseConfig = defaultConfig{ layoutHook = Layout (layoutHook defaultConfig) } -- | Core function that attempts to parse @~\/.xmonad\/xmonad.conf@ readConfig :: IO (Maybe (XConfig Layout)) readConfig = do - cs <- bracket (openFile "/home/braden/.xmonad/xmonad.conf" ReadMode) + dir <- getXMonadDir + cs <- bracket (openFile (dir++"/xmonad.conf") ReadMode) (\h -> hClose h) -- vv force the lazy IO (\h -> (lines `fmap` hGetContents h) >>= \ss -> length ss `seq` return ss) |