Turn off idle GC for yesod devel #767
This commit is contained in:
parent
fec962d779
commit
9c0a3c516d
@ -258,7 +258,7 @@ devel opts passThroughArgs = withSocketsDo $ withManager $ \manager -> do
|
|||||||
list <- liftIO $ getFileList hsSourceDirs [cabal]
|
list <- liftIO $ getFileList hsSourceDirs [cabal]
|
||||||
success <- liftIO rebuild
|
success <- liftIO rebuild
|
||||||
pkgArgs <- liftIO (ghcPackageArgs opts)
|
pkgArgs <- liftIO (ghcPackageArgs opts)
|
||||||
let devArgs = pkgArgs ++ ["devel.hs"]
|
let devArgs = pkgArgs ++ ["+RTS", "-I0", "-RTS", "devel.hs"]
|
||||||
let loop list0 = do
|
let loop list0 = do
|
||||||
(haskellFileChanged, list1) <- liftIO $
|
(haskellFileChanged, list1) <- liftIO $
|
||||||
watchForChanges filesModified hsSourceDirs [cabal] list0 (eventTimeout opts)
|
watchForChanges filesModified hsSourceDirs [cabal] list0 (eventTimeout opts)
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user