Tweak strictness

cd25dd99 · Ian Lynagh · ee4d8e97 · cd25dd99
Commit cd25dd99 authored Feb 02, 2008 by Ian Lynagh
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

compiler/utils/UniqFM.lhs compiler/utils/UniqFM.lhs +1 -1

No files found.
--- 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)