Use non-deprecated Map and Set folds
authorDavid Feuer <David.Feuer@gmail.com>
Tue, 7 Feb 2017 07:42:53 +0000 (02:42 -0500)
committerDavid Feuer <David.Feuer@gmail.com>
Tue, 7 Feb 2017 16:20:36 +0000 (11:20 -0500)
`fold` and `foldWithKey` are now deprecated in `containers`.
This package's use causes GHC validation to fail with
`containers-0.5.10.1`.

src/Compiler/Hoopl/Unique.hs

index fd647ea..e840e99 100644 (file)
@@ -66,7 +66,7 @@ instance IsSet UniqueSet where
   setIntersection (US x) (US y) = US (S.intersection x y)
   setIsSubsetOf (US x) (US y) = S.isSubsetOf x y
 
-  setFold k z (US s) = S.fold k z s
+  setFold k z (US s) = S.foldr k z s
 
   setElems (US s) = S.elems s
   setFromList ks = US (S.fromList ks)