@@ -1,6 +1,7 @@
1+{-# LANGUAGE BangPatterns #-}
1{-# LANGUAGE OverloadedStrings #-}
3{-# LANGUAGE OverloadedStrings #-}
2{-# LANGUAGE RecursiveDo #-}
4{-# LANGUAGE RecursiveDo #-}
3−{-# LANGUAGE BangPatterns #-}
4import Control.Concurrent
5import Control.Concurrent
5import Control.Monad
6import Control.Monad
6import Control.Monad.IO.Class
7import Control.Monad.IO.Class
@@ -20,7 +21,7 @@ import System.Process
20-- probably have a memory leak; going under the minimum doesn't indicate a
21-- probably have a memory leak; going under the minimum doesn't indicate a
21-- memory leak, but may mean the test needs to be updated.
22-- memory leak, but may mean the test needs to be updated.
22minBytesAllowed, resetThreshold, maxBytesAllowed :: Int64
23minBytesAllowed, resetThreshold, maxBytesAllowed :: Int64
23−(minBytesAllowed, resetThreshold, maxBytesAllowed) = (200000, 400000, 490000)
24+(minBytesAllowed, resetThreshold, maxBytesAllowed) = (200000, 400000, 600000)
25-- Some times the memory usage might flair up and then then return to normal
26-- Some times the memory usage might flair up and then then return to normal
26-- this probably indicates an issue, but if you are trying to fix a slow consistent
27-- this probably indicates an issue, but if you are trying to fix a slow consistent