twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-17 12:53:48 -07:00
Code Issues Packages Projects Releases Wiki Activity

Trailing space

Browse Source
This commit is contained in:
Spencer Janssen
2007-11-19 03:06:58 +00:00
parent d6c5eb3e80
commit 99dd1a30ba
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Core.hs
View File

@@ -317,7 +317,7 @@ recompile = liftIO $ do
yes <- doesFileExist src yes <- doesFileExist src
when yes $ do when yes $ do
srcT <- getModificationTime src srcT <- getModificationTime src
binT <- catch (getModificationTime bin) (const $ return srcT) -- needs recompiling 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)