Do our own recompilation checking: only launch ghc if the xmonad.hs is newer than its .o file

darcs-hash:20071119010759-cba2c-e9b94827122cb337ddcf93c3aefb62775011707a.gz

1 files changed, 14 insertions, 6 deletions

diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index ee5320c..90bfd9a 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -294,14 +294,22 @@ restart mprog resume = do
 
 -- | Recompile ~\/xmonad\/xmonad.hs.
 --
--- Raises an exception if ghc can't be found.
+-- The -i flag is used to restrict recompilation to the xmonad.hs file.
+-- Raises an exception if GHC can't be found, or if anything else goes wrong.
+--
 recompile :: IO ()
 recompile = do
-    dir <- fmap (++ "/.xmonad") getHomeDirectory
-    pid <- runProcess "ghc" ["--make", "xmonad.hs", "-i"] (Just dir)
-        Nothing Nothing Nothing Nothing
-    waitForProcess pid
-    return ()
+    dir     <- liftM (++ "/.xmonad") getHomeDirectory
+    let src = dir ++ "/" ++ "xmonad.hs"
+        obj = dir ++ "/" ++ "xmonad.o"
+    yes     <- doesFileExist src
+    when yes $ do
+        srcT <- getModificationTime src
+        objT <- getModificationTime obj
+        when (srcT > objT) $ do
+            waitForProcess =<< runProcess "ghc" ["--make", "xmonad.hs", "-i"] (Just dir)
+                                    Nothing Nothing Nothing Nothing
+            return ()
 
 -- | Run a side effecting action with the current workspace. Like 'when' but
 whenJust :: Monad m => Maybe a -> (a -> m ()) -> m ()