fall back to previous ~/.xmonad/xmonad if recompilation fails

darcs-hash:20071107015309-462cf-004075d99aed14ceef9c202094b238b0984fa280.gz

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 ()