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

Merge pull request #799 from paul-rouse/master

Browse Source 
Mitigate yesod devel load (#767) by increasing a timeout
This commit is contained in:
Greg Weber 2014-08-06 12:34:16 -07:00
commit 7d138fbf48
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