Trailing space

This commit is contained in:
Spencer Janssen 2007-11-19 03:06:58 +00:00
parent d6c5eb3e80
commit 99dd1a30ba

View File

@ -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)