diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-07 14:55:06 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-07 14:55:06 -0400 |
| commit | 05d95044cdf97d572ffcf601ea98561057d28f3e (patch) | |
| tree | 7348a470c4245a9f7b89c3fbf01c0772a4ff96e4 /Assistant/Alert/Utility.hs | |
| parent | 04d48f98c5cecabdefcddc8b68738567a530dd84 (diff) | |
revert use of Data.Map.Strict
memory profile shows this did not contribute to the memory leaks fixed in
4cf6d95c1a9d10cb59669eaceafce4c7a3155eb6
Diffstat (limited to 'Assistant/Alert/Utility.hs')
| -rw-r--r-- | Assistant/Alert/Utility.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Alert/Utility.hs b/Assistant/Alert/Utility.hs index 960c3385b..db2ea1925 100644 --- a/Assistant/Alert/Utility.hs +++ b/Assistant/Alert/Utility.hs @@ -13,7 +13,7 @@ import Utility.Tense import qualified Data.Text as T import Data.Text (Text) -import qualified Data.Map.Strict as M +import qualified Data.Map as M {- This is as many alerts as it makes sense to display at a time. - A display might be smaller, or larger, the point is to not overwhelm the @@ -122,7 +122,7 @@ mergeAlert i al m = maybe updatePrune updateCombine (alertCombiner al) let (f, rest) = partition (\(_, a) -> isFiller a) l in drop bloat f ++ rest updatePrune = pruneBloat $ M.filterWithKey pruneSame $ - M.insert i al m + M.insertWith' const i al m updateCombine combiner = let combined = M.mapMaybe (combiner al) m in if M.null combined |