summaryrefslogtreecommitdiffstats
path: root/XMonad/Core.hs
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad/Core.hs')
-rw-r--r--XMonad/Core.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index 80006b8..d533bf6 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -312,8 +312,8 @@ recompile = do
yes <- doesFileExist src
when yes $ do
srcT <- getModificationTime src
- binT <- getModificationTime bin
- when (srcT > binT) $ do
+ binT <- catch (getModificationTime bin) (const $ return srcT) -- needs recompiling
+ when (srcT >= binT) $ do
status <- bracket (openFile err WriteMode) hClose $ \h -> do
waitForProcess =<< runProcess "ghc" ["--make", "xmonad.hs", "-i", "-v0"] (Just dir)
Nothing Nothing Nothing (Just h)