diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-02-03 02:48:36 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-02-03 02:48:36 +0000 |
| commit | b56fa72c006e7dfd850729cb8dd28552bc4e041e (patch) | |
| tree | 35e426acfdcde4c80e5630a80ffda788206eeebd | |
| parent | 5cdd6d82bb1a4c4b90ea2488dcf1fef25c3cc9a4 (diff) | |
| download | haskell-b56fa72c006e7dfd850729cb8dd28552bc4e041e.tar.gz | |
Strictness tweaks
| -rw-r--r-- | compiler/utils/UniqFM.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/utils/UniqFM.lhs b/compiler/utils/UniqFM.lhs index 61c858deb7..5b014ca1b9 100644 --- a/compiler/utils/UniqFM.lhs +++ b/compiler/utils/UniqFM.lhs @@ -203,9 +203,9 @@ First, the DataType itself; which is either a Node, a Leaf, or an Empty. \begin{code} data UniqFM ele = EmptyUFM - | LeafUFM FastInt ele - | NodeUFM FastInt -- the switching - FastInt -- the delta + | LeafUFM !FastInt ele + | NodeUFM !FastInt -- the switching + !FastInt -- the delta (UniqFM ele) (UniqFM ele) -- INVARIANT: the children of a NodeUFM are never EmptyUFMs |