From b56fa72c006e7dfd850729cb8dd28552bc4e041e Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sun, 3 Feb 2008 02:48:36 +0000 Subject: [PATCH] Strictness tweaks --- compiler/utils/UniqFM.lhs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/utils/UniqFM.lhs b/compiler/utils/UniqFM.lhs index 61c858d..5b014ca 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 -- 1.7.10.4