Fix deprecation warnings from containers
authorErik de Castro Lopo <erikd@mega-nerd.com>
Sat, 28 Jan 2017 05:58:27 +0000 (16:58 +1100)
committerErik de Castro Lopo <erikd@mega-nerd.com>
Sat, 28 Jan 2017 05:58:30 +0000 (16:58 +1100)
Also bumps the lower bound on containers to `>= 0.5` which should be fine
since `0.5.0.0` ws released in 2012.

hoopl.cabal
src/Compiler/Hoopl/Unique.hs

index 0beb1c5..9bfda89 100644 (file)
@@ -41,7 +41,7 @@ Library
 
   Hs-Source-Dirs:    src
   Build-Depends:     base >= 4.3 && < 4.11,
 
   Hs-Source-Dirs:    src
   Build-Depends:     base >= 4.3 && < 4.11,
-                     containers >= 0.4 && < 0.6
+                     containers >= 0.5 && < 0.6
   Exposed-Modules:   Compiler.Hoopl,
                      Compiler.Hoopl.Internals,
                      Compiler.Hoopl.Wrappers,
   Exposed-Modules:   Compiler.Hoopl,
                      Compiler.Hoopl.Internals,
                      Compiler.Hoopl.Wrappers,
@@ -72,8 +72,8 @@ Test-Suite hoopl-test
   Type:              exitcode-stdio-1.0
   Main-Is:           Main.hs
   Hs-Source-Dirs:    testing src
   Type:              exitcode-stdio-1.0
   Main-Is:           Main.hs
   Hs-Source-Dirs:    testing src
-  Build-Depends:     base >= 4.3 && < 4.10, 
-                     containers >= 0.4 && < 0.6,
+  Build-Depends:     base >= 4.3 && < 4.10,
+                     containers >= 0.5 && < 0.6,
                      filepath,
                      mtl >= 2.1.3.1,
                      parsec >= 3.1.7,
                      filepath,
                      mtl >= 2.1.3.1,
                      parsec >= 3.1.7,
index ca2ca7a..fd647ea 100644 (file)
@@ -100,8 +100,8 @@ instance IsMap UniqueMap where
 
   mapMap f (UM m) = UM (M.map f m)
   mapMapWithKey f (UM m) = UM (M.mapWithKey (f . intToUnique) m)
 
   mapMap f (UM m) = UM (M.map f m)
   mapMapWithKey f (UM m) = UM (M.mapWithKey (f . intToUnique) m)
-  mapFold k z (UM m) = M.fold k z m
-  mapFoldWithKey k z (UM m) = M.foldWithKey (k . intToUnique) z m
+  mapFold k z (UM m) = M.foldr k z m
+  mapFoldWithKey k z (UM m) = M.foldrWithKey (k . intToUnique) z m
   mapFilter f (UM m) = UM (M.filter f m)
 
   mapElems (UM m) = M.elems m
   mapFilter f (UM m) = UM (M.filter f m)
 
   mapElems (UM m) = M.elems m