X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FUniqFM.lhs;h=de02227031fb5a06c1c6fa92dc9bbc4518727f35;hp=59158f38b2be2618af4cd1a2da761997759bc0d3;hb=cd25dd99f1135d58b1e02b9abca4162debddffe4;hpb=ee4d8e97cc9605ca7219ae3ab9830a694629f4f0

diff --git a/compiler/utils/UniqFM.lhs b/compiler/utils/UniqFM.lhs
index 59158f3..de02227 100644
--- a/compiler/utils/UniqFM.lhs
+++ b/compiler/utils/UniqFM.lhs
@@ -698,7 +698,7 @@ insert_ele  f (LeafUFM j old) i new
 			  (indexToRoot j))
 		 (mkLeafUFM i new)
 		 (mkLeafUFM j old)
-  | j ==# i  = mkLeafUFM j (f old new)
+  | j ==# i  = mkLeafUFM j $! f old new
   | otherwise =
 	  mkLLNodeUFM (getCommonNodeUFMData
 			  (indexToRoot i)