diff options
| -rw-r--r-- | compiler/utils/UniqFM.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/UniqFM.lhs b/compiler/utils/UniqFM.lhs index 59158f38b2..de02227031 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) |