Tweak strictness

[ghc-hetmet.git] / compiler / utils / UniqFM.lhs

diff --git a/compiler/utils/UniqFM.lhs b/compiler/utils/UniqFM.lhs
index 59158f3..de02227 100644 (file)
--- 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)