From af96e7c706f11640852dd0c1be5c3e37ff4c1ff0 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@galois.com>
Date: Mon, 19 Nov 2007 04:00:57 +0100
Subject: handle case of xmonad binary not existing, when checking
recompilation
darcs-hash:20071119030057-cba2c-c21e607cb7d9440b9f07d0eea74513c11ebf3bfc.gz
---
XMonad/Core.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'XMonad/Core.hs')
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)
--
cgit v1.2.3