The recompile function now returns a boolean status instead of ().

darcs-hash:20080105225500-94725-1c05ae81351eaadb4f736e0d665f325618d76dbe.gz

1 files changed, 2 insertions, 2 deletions

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"