[commit: packages/hoopl] master: Use non-deprecated Map and Set folds (46d43d4)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/hoopl

On branch  : master
Link       : http://git.haskell.org/packages/hoopl.git/commitdiff/46d43d439c30a237edd78b0bd7d86a31fe3efca9

>---------------------------------------------------------------

commit 46d43d439c30a237edd78b0bd7d86a31fe3efca9
Author: David Feuer <David.Feuer at gmail.com>
Date:   Tue Feb 7 02:42:53 2017 -0500

    Use non-deprecated Map and Set folds
    
    `fold` and `foldWithKey` are now deprecated in `containers`.
    This package's use causes GHC validation to fail with
    `containers-0.5.10.1`.


>---------------------------------------------------------------

46d43d439c30a237edd78b0bd7d86a31fe3efca9
 src/Compiler/Hoopl/Unique.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Compiler/Hoopl/Unique.hs b/src/Compiler/Hoopl/Unique.hs
index fd647ea..e840e99 100644
--- a/src/Compiler/Hoopl/Unique.hs
+++ b/src/Compiler/Hoopl/Unique.hs
@@ -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)