diff options
author | Lukas Mai <l.mai@web.de> | 2007-11-07 02:53:09 +0100 |
---|---|---|
committer | Lukas Mai <l.mai@web.de> | 2007-11-07 02:53:09 +0100 |
commit | 7511a3b9191e93845d1093a652dcdc5f91cfe2fc (patch) | |
tree | dd2650f68f6d47191e96fd66e8e88577d881b9ee | |
parent | d70eb9d6e5b785f4863f8ec873e814222611d64d (diff) | |
download | xmonad-7511a3b9191e93845d1093a652dcdc5f91cfe2fc.tar.gz xmonad-7511a3b9191e93845d1093a652dcdc5f91cfe2fc.tar.xz xmonad-7511a3b9191e93845d1093a652dcdc5f91cfe2fc.zip |
fall back to previous ~/.xmonad/xmonad if recompilation fails
darcs-hash:20071107015309-462cf-004075d99aed14ceef9c202094b238b0984fa280.gz
-rw-r--r-- | Main.hs | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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 () |