Make UniqFM strict in its elements

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

diff --git a/compiler/utils/UniqFM.lhs b/compiler/utils/UniqFM.lhs
index 5b014ca..57295d5 100644 (file)
--- a/compiler/utils/UniqFM.lhs
+++ b/compiler/utils/UniqFM.lhs
@@ -203,7 +203,7 @@ First, the DataType itself; which is either a Node, a Leaf, or an Empty.
 \begin{code}
 data UniqFM ele
   = EmptyUFM
-  | LeafUFM !FastInt ele
+  | LeafUFM !FastInt !ele
   | NodeUFM !FastInt         -- the switching
             !FastInt         -- the delta
             (UniqFM ele)
@@ -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)