diff options
| author | Roman Cheplyaka <roma@ro-che.info> | 2008-05-18 22:46:02 +0200 |
|---|---|---|
| committer | Roman Cheplyaka <roma@ro-che.info> | 2008-05-18 22:46:02 +0200 |
| commit | d55ab1c5218fff41c29fd639fae86958cc8ef325 (patch) | |
| tree | c963160c6ac17ab375baebac688ea99f06de8b11 | |
| parent | b6a4749cf1fa2459bc4471c558a9cc6a22e3f921 (diff) | |
| download | XMonadContrib-d55ab1c5218fff41c29fd639fae86958cc8ef325.tar.gz XMonadContrib-d55ab1c5218fff41c29fd639fae86958cc8ef325.tar.xz XMonadContrib-d55ab1c5218fff41c29fd639fae86958cc8ef325.zip | |
Fixed location of xmonad.conf
darcs-hash:20080518204602-3ebed-0b83168c51b03e8d54c72c417161982ad8058d60.gz
| -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) |