X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Futils%2FFiniteMap.lhs;fp=ghc%2Fcompiler%2Futils%2FFiniteMap.lhs;h=c2c34fb782aea49257dd2b04e6e7f30f8e51fe53;hb=46a825e77f5742d8881cf3f8fb59126257257338;hp=87bf81ff766c80ac07ceb5ada8d1cd3c71fb65ed;hpb=aa3f26d12d8df7f1e5c9df6701511e9546d0369f;p=ghc-hetmet.git

diff --git a/ghc/compiler/utils/FiniteMap.lhs b/ghc/compiler/utils/FiniteMap.lhs
index 87bf81f..c2c34fb 100644
--- a/ghc/compiler/utils/FiniteMap.lhs
+++ b/ghc/compiler/utils/FiniteMap.lhs
@@ -60,6 +60,7 @@ module FiniteMap (
 import GlaExts
 import Maybes
 import Bag	  ( Bag, foldrBag )
+import Util
 import Outputable
 
 #if ! OMIT_NATIVE_CODEGEN
@@ -220,7 +221,7 @@ addToFM_C combiner (Branch key elt size fm_l fm_r) new_key new_elt
 addListToFM fm key_elt_pairs = addListToFM_C (\ old new -> new) fm key_elt_pairs
 
 addListToFM_C combiner fm key_elt_pairs
-  = foldl add fm key_elt_pairs	-- foldl adds from the left
+  = foldl' add fm key_elt_pairs	-- foldl adds from the left
   where
     add fmap (key,elt) = addToFM_C combiner fmap key elt
 \end{code}
@@ -233,7 +234,7 @@ delFromFM (Branch key elt size fm_l fm_r) del_key
 	LT -> mkBalBranch key elt (delFromFM fm_l del_key) fm_r
 	EQ -> glueBal fm_l fm_r
 
-delListFromFM fm keys = foldl delFromFM fm keys
+delListFromFM fm keys = foldl' delFromFM fm keys
 \end{code}
 
 %************************************************************************