Pester the user with one (not two) xmessages on config errors

Ignore-this: f481f7d3ba5fca5c53a0b3a87daa32bb

darcs-hash:20090321233736-1499c-6e732e248211c129eba7b664fed681c97ae09020

1 files changed, 3 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index d99b381..a6872eb 100644
--- a/Main.hs
+++ b/Main.hs
@@ -16,10 +16,12 @@ module Main (main) where
 
 import XMonad
 
+import Control.Monad (unless)
 import System.IO
 import System.Info
 import System.Environment
 import System.Posix.Process (executeFile)
+import System.Exit (exitFailure)
 
 import Paths_xmonad (version)
 import Data.Version (showVersion)
@@ -39,7 +41,7 @@ main = do
         []                    -> launch
         ["--resume", _]       -> launch
         ["--help"]            -> usage
-        ["--recompile"]       -> recompile True >> return ()
+        ["--recompile"]       -> recompile True >>= flip unless exitFailure
         ["--restart"]         -> sendRestart >> return ()
         ["--version"]         -> putStrLn ("xmonad " ++ showVersion version)
 #ifdef TESTING