From 1d3b60abefb9833e9f3d3a382ae3404313638652 Mon Sep 17 00:00:00 2001 From: Paul Rouse Date: Wed, 6 Aug 2014 20:27:24 +0100 Subject: [PATCH] Mitigate yesod devel load (#767) by increasing a timeout --- yesod-bin/Devel.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-bin/Devel.hs b/yesod-bin/Devel.hs index 77f34286..67ec07ad 100644 --- a/yesod-bin/Devel.hs +++ b/yesod-bin/Devel.hs @@ -388,7 +388,7 @@ watchForChanges filesModified hsSourceDirs extraFiles list t = do Map.differenceWith compareTimes newList list `Map.union` Map.differenceWith compareTimes list newList return (haskellFileChanged, newList) - else timeout (1000000*t) (takeMVar filesModified) >> + else timeout (10000000*t) (takeMVar filesModified) >> watchForChanges filesModified hsSourceDirs extraFiles list t where compareTimes x y