From e735810434ac390bf0719958ae873193e04bdc06 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Sun, 22 Mar 2009 00:37:36 +0100
Subject: Pester the user with one (not two) xmessages on config errors

Ignore-this: f481f7d3ba5fca5c53a0b3a87daa32bb

darcs-hash:20090321233736-1499c-6e732e248211c129eba7b664fed681c97ae09020
---
 Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Main.hs')

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
-- 
cgit v1.2.3