From cd25dd99f1135d58b1e02b9abca4162debddffe4 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 2 Feb 2008 21:35:42 +0000 Subject: [PATCH] Tweak strictness --- compiler/utils/UniqFM.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 1.7.10.4