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