diff options
author | Lukas Mai <l.mai@web.de> | 2007-11-21 19:30:18 +0100 |
---|---|---|
committer | Lukas Mai <l.mai@web.de> | 2007-11-21 19:30:18 +0100 |
commit | eef8e536988963d19121fb58ba7091d1391f2c2e (patch) | |
tree | d722aa559ed16f9759ce87d20e7e341cad0480af /Main.hs | |
parent | 0acd4706b39b5f726068213c1fd50f5444f2cfcb (diff) | |
download | xmonad-eef8e536988963d19121fb58ba7091d1391f2c2e.tar.gz xmonad-eef8e536988963d19121fb58ba7091d1391f2c2e.tar.xz xmonad-eef8e536988963d19121fb58ba7091d1391f2c2e.zip |
add getXMonadDir (2nd try)
darcs-hash:20071121183018-462cf-464c521bd6fb9c7910186d20cd6023c90c7998ea.gz
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -16,11 +16,10 @@ module Main (main) where import XMonad.Main import XMonad.Config -import XMonad.Core (recompile) +import XMonad.Core (getXMonadDir, recompile) import Control.Exception (handle) import System.IO -import System.Directory import System.Environment import System.Posix.Process (executeFile) @@ -44,7 +43,7 @@ main = do buildLaunch :: IO () buildLaunch = do recompile False - dir <- fmap (++ "/.xmonad") getHomeDirectory + dir <- getXMonadDir args <- getArgs executeFile (dir ++ "/xmonad") False args Nothing return () |