Turn off idle GC for yesod devel #767

This commit is contained in:
Michael Snoyman 2014-07-08 17:18:40 +03:00
parent fec962d779
commit 9c0a3c516d

View File

@ -258,7 +258,7 @@ devel opts passThroughArgs = withSocketsDo $ withManager $ \manager -> do
list <- liftIO $ getFileList hsSourceDirs [cabal]
success <- liftIO rebuild
pkgArgs <- liftIO (ghcPackageArgs opts)
let devArgs = pkgArgs ++ ["devel.hs"]
let devArgs = pkgArgs ++ ["+RTS", "-I0", "-RTS", "devel.hs"]
let loop list0 = do
(haskellFileChanged, list1) <- liftIO $
watchForChanges filesModified hsSourceDirs [cabal] list0 (eventTimeout opts)