Fix warning about the use of a deprecated function

haskell · Jul 13, 2017 · 39d6823 · 39d6823
1 parent abf8146
commit 39d6823
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/Events/HECs.hs b/Events/HECs.hs
@@ -16,9 +16,14 @@ import Events.SparkTree
 import GHC.RTS.Events
 
 import Data.Array
-import qualified Data.IntMap as IM
 import qualified Data.List as L
 
+#if MIN_VERSION_containers(0,5,0)
+import qualified Data.IntMap.Strict as IM
+#else
+import qualified Data.IntMap as IM
+#endif
+
 -----------------------------------------------------------------------------
 
 -- all the data from a .eventlog file
@@ -78,7 +83,9 @@ fromListWith' :: (a -> a -> a) -> [(Int, a)] -> IM.IntMap a
 fromListWith' f xs =
     L.foldl' ins IM.empty xs
   where
-#if MIN_VERSION_containers(0,4,1)
+#if MIN_VERSION_containers(0,5,0)
+    ins t (k,x) = IM.insertWith f k x t
+#elif MIN_VERSION_containers(0,4,1)
     ins t (k,x) = IM.insertWith' f k x t
 #else
     ins t (k,x) =