diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-02-02 21:35:42 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-02-02 21:35:42 +0000 |
| commit | cd25dd99f1135d58b1e02b9abca4162debddffe4 (patch) | |
| tree | f5bf0028e4f218e1ebacb44b11e9de9b02ff3d0b /compiler/utils/UniqFM.lhs | |
| parent | ee4d8e97cc9605ca7219ae3ab9830a694629f4f0 (diff) | |
| download | haskell-cd25dd99f1135d58b1e02b9abca4162debddffe4.tar.gz | |
Tweak strictness
Diffstat (limited to 'compiler/utils/UniqFM.lhs')
| -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) |