haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Call watchTree in background (faster startup when there are lots of files)

Browse Source
This commit is contained in:
Michael Snoyman 2014-05-14 08:09:21 +03:00
parent cf20f15957
commit cb95446469
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
yesod-bin/Devel.hs
View File

@ -215,7 +215,8 @@ devel opts passThroughArgs = withSocketsDo $ withManager $ \manager -> do
putStrLn $ "Yesod devel server. " ++ terminator ++ " to quit" putStrLn $ "Yesod devel server. " ++ terminator ++ " to quit"
void $ forkIO $ do void $ forkIO $ do
filesModified <- newEmptyMVar filesModified <- newEmptyMVar
watchTree manager "." (const True) (\_ -> void (tryPutMVar filesModified ())) void $ forkIO $
watchTree manager "." (const True) (\_ -> void (tryPutMVar filesModified ()))
evalStateT (mainOuterLoop iappPort filesModified) Map.empty evalStateT (mainOuterLoop iappPort filesModified) Map.empty
after after
writeLock opts writeLock opts