aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad/Core.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index 27ef4f2..4990311 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -317,7 +317,7 @@ recompile = liftIO $ do
yes <- doesFileExist src
when yes $ do
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
status <- bracket (openFile err WriteMode) hClose $ \h -> do
waitForProcess =<< runProcess "ghc" ["--make", "xmonad.hs", "-i", "-v0"] (Just dir)