diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-19 04:06:58 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-19 04:06:58 +0100 |
| commit | a7ba4c32e704a2243bb3d71c8cc95d3488b12f31 (patch) | |
| tree | 029ba6c8fd4d0f140dd7cbf7d714d69b157fffc0 | |
| parent | 6bf224c0b491ad8119dccc1a53ce878f083ce069 (diff) | |
| download | metatile-a7ba4c32e704a2243bb3d71c8cc95d3488b12f31.tar metatile-a7ba4c32e704a2243bb3d71c8cc95d3488b12f31.zip | |
Trailing space
darcs-hash:20071119030658-a5988-696782fc7b3bee7df0b4c6b3065d46e3260c8d26
| -rw-r--r-- | XMonad/Core.hs | 2 |
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) |