twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-05 06:31:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

handle case of xmonad binary not existing, when checking recompilation

Browse Source
This commit is contained in:
Don Stewart
2007-11-19 03:00:57 +00:00
parent e9eadd6141
commit ea71fd67e8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Core.hs
View File

@@ -312,8 +312,8 @@ recompile = do
yes <- doesFileExist src yes <- doesFileExist src
when yes $ do when yes $ do
srcT <- getModificationTime src srcT <- getModificationTime src
binT <- getModificationTime bin binT <- catch (getModificationTime bin) (const $ return srcT) -- needs recompiling
when (srcT > binT) $ do when (srcT >= binT) $ do
status <- bracket (openFile err WriteMode) hClose $ \h -> do status <- bracket (openFile err WriteMode) hClose $ \h -> do
waitForProcess =<< runProcess "ghc" ["--make", "xmonad.hs", "-i", "-v0"] (Just dir) waitForProcess =<< runProcess "ghc" ["--make", "xmonad.hs", "-i", "-v0"] (Just dir)
Nothing Nothing Nothing (Just h) Nothing Nothing Nothing (Just h)