From: Ian Lynagh <igloo@earth.li>
Date: Sun, 3 Feb 2008 02:48:36 +0000 (+0000)
Subject: Strictness tweaks
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=b56fa72c006e7dfd850729cb8dd28552bc4e041e

Strictness tweaks
---

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