summaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorDon Stewart <dons@galois.com>2007-11-19 04:00:57 +0100
committerDon Stewart <dons@galois.com>2007-11-19 04:00:57 +0100
commit6a085c3da654d9f921af1799ad646112bc5b83cc (patch)
tree8ec7230efb72867aca79dd446e17bee0f40787f2 /XMonad
parenta6c2d8d7fff74c59a487e9619785b8620705c543 (diff)
downloadmetatile-6a085c3da654d9f921af1799ad646112bc5b83cc.tar
metatile-6a085c3da654d9f921af1799ad646112bc5b83cc.zip
handle case of xmonad binary not existing, when checking recompilation
darcs-hash:20071119030057-cba2c-c21e607cb7d9440b9f07d0eea74513c11ebf3bfc
Diffstat (limited to 'XMonad')
-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)