From b57529f3449a3ed699c9d1c9c18f3224bd185f4c Mon Sep 17 00:00:00 2001
From: "nicolas.pouillard" <nicolas.pouillard@gmail.com>
Date: Sat, 5 Jan 2008 23:55:00 +0100
Subject: The recompile function now returns a boolean status instead of ().

darcs-hash:20080105225500-94725-1c05ae81351eaadb4f736e0d665f325618d76dbe
---
 Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index ca34dc1..006d738 100644
--- a/Main.hs
+++ b/Main.hs
@@ -31,8 +31,8 @@ main = do
     case args of
         []                    -> launch
         ["--resume", _]       -> launch
-        ["--recompile"]       -> recompile False
-        ["--recompile-force"] -> recompile True
+        ["--recompile"]       -> recompile False >> return ()
+        ["--recompile-force"] -> recompile True >> return ()
         ["--version"]         -> putStrLn "xmonad 0.5"
         _                     -> fail "unrecognized flags"
 
-- 
cgit v1.2.3