summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLukas Mai <l.mai@web.de>2007-11-07 02:53:09 +0100
committerLukas Mai <l.mai@web.de>2007-11-07 02:53:09 +0100
commit9a22d108a947107728cff09711528293d1585e61 (patch)
treedd2650f68f6d47191e96fd66e8e88577d881b9ee
parentfa09fda24204ec3b22b53eea60f4c94b46346208 (diff)
downloadmetatile-9a22d108a947107728cff09711528293d1585e61.tar
metatile-9a22d108a947107728cff09711528293d1585e61.zip
fall back to previous ~/.xmonad/xmonad if recompilation fails
darcs-hash:20071107015309-462cf-004075d99aed14ceef9c202094b238b0984fa280
-rw-r--r--Main.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/Main.hs b/Main.hs
index 51b5216..40578f6 100644
--- a/Main.hs
+++ b/Main.hs
@@ -22,7 +22,6 @@ import System.IO
import System.Process
import System.Directory
import System.Environment
-import System.Exit
import System.Posix.Process (executeFile)
-- | The entry point into xmonad. Attempts to compile any custom main
@@ -47,7 +46,7 @@ buildLaunch = do
dir <- fmap (++ "/.xmonad") getHomeDirectory
pid <- runProcess "ghc" ["--make", "xmonad.hs"] (Just dir)
Nothing Nothing Nothing Nothing
- ExitSuccess <- waitForProcess pid
+ waitForProcess pid
args <- getArgs
executeFile (dir ++ "/xmonad") False args Nothing
return ()