diff options
author | Adam Vogt <vogt.adam@gmail.com> | 2009-03-22 00:37:36 +0100 |
---|---|---|
committer | Adam Vogt <vogt.adam@gmail.com> | 2009-03-22 00:37:36 +0100 |
commit | af0780fbc3048454def7c262888a4195e48e3ed4 (patch) | |
tree | badb8172a73cd26db24b8e12a10e4d9e78aa9198 /Main.hs | |
parent | 4da50560d56799e5052839e372460853b9d1b048 (diff) | |
download | xmonad-af0780fbc3048454def7c262888a4195e48e3ed4.tar.gz xmonad-af0780fbc3048454def7c262888a4195e48e3ed4.tar.xz xmonad-af0780fbc3048454def7c262888a4195e48e3ed4.zip |
Pester the user with one (not two) xmessages on config errors
Ignore-this: f481f7d3ba5fca5c53a0b3a87daa32bb
darcs-hash:20090321233736-1499c-6e732e248211c129eba7b664fed681c97ae09020.gz
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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 |