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

Mitigate yesod devel load (#767) by increasing a timeout

Browse Source
This commit is contained in:
Paul Rouse 2014-08-06 20:27:24 +01:00
parent 9726f9c59f
commit 1d3b60abef
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-bin/Devel.hs
View File

@ -388,7 +388,7 @@ watchForChanges filesModified hsSourceDirs extraFiles list t = do
Map.differenceWith compareTimes newList list `Map.union` Map.differenceWith compareTimes newList list `Map.union`
Map.differenceWith compareTimes list newList Map.differenceWith compareTimes list newList
return (haskellFileChanged, newList) return (haskellFileChanged, newList)
else timeout (1000000*t) (takeMVar filesModified) >> else timeout (10000000*t) (takeMVar filesModified) >>
watchForChanges filesModified hsSourceDirs extraFiles list t watchForChanges filesModified hsSourceDirs extraFiles list t
where where
compareTimes x y compareTimes x y