From 9a22d108a947107728cff09711528293d1585e61 Mon Sep 17 00:00:00 2001
From: Lukas Mai <l.mai@web.de>
Date: Wed, 7 Nov 2007 02:53:09 +0100
Subject: fall back to previous ~/.xmonad/xmonad if recompilation fails

darcs-hash:20071107015309-462cf-004075d99aed14ceef9c202094b238b0984fa280
---
 Main.hs | 3 +--
 1 file changed, 1 insertion(+), 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 ()
-- 
cgit v1.2.3