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 ++--
 XMonad/Core.hs | 9 +++++++--
 2 files changed, 9 insertions(+), 4 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"
 
diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index 9252b05..56afe1b 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -348,7 +348,9 @@ getXMonadDir = io $ getAppUserDataDirectory "xmonad"
 -- GHC indicates failure with a non-zero exit code, an xmessage containing
 -- GHC's is spawned.
 --
-recompile :: MonadIO m => Bool -> m ()
+-- False is returned if there is compilation errors.
+--
+recompile :: MonadIO m => Bool -> m Bool
 recompile force = io $ do
     dir <- getXMonadDir
     let binn = "xmonad-"++arch++"-"++os
@@ -358,7 +360,8 @@ recompile force = io $ do
         src  = base ++ ".hs"
     srcT <- getModTime src
     binT <- getModTime bin
-    when (force || srcT > binT) $ do
+    if (force || srcT > binT)
+      then do
         status <- bracket (openFile err WriteMode) hClose $ \h -> do
             waitForProcess =<< runProcess "ghc" ["--make", "xmonad.hs", "-i", "-no-recomp", "-v0", "-o",binn] (Just dir)
                                     Nothing Nothing Nothing (Just h)
@@ -370,6 +373,8 @@ recompile force = io $ do
                     ["Error detected while loading xmonad configuration file: " ++ src]
                     ++ lines ghcErr ++ ["","Please check the file for errors."]
             doubleFork $ executeFile "xmessage" True [msg] Nothing
+        return (status == ExitSuccess)
+      else return True
  where getModTime f = catch (Just <$> getModificationTime f) (const $ return Nothing)
 
 -- | Run a side effecting action with the current workspace. Like 'when' but
-- 
cgit v1.2.3