From 93e573f5c6abe0643e3f339abab9bc96eb8a77d8 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Mon, 25 Feb 2008 17:13:05 +0000
Subject: [PATCH] Make UniqFM non-strict again while we work out what we're
 doing. This "fixes" the very-slow problem we have when
 compiling dictionaries.

---
 compiler/utils/UniqFM.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/utils/UniqFM.lhs b/compiler/utils/UniqFM.lhs
index 57295d5..862ca58 100644
--- a/compiler/utils/UniqFM.lhs
+++ b/compiler/utils/UniqFM.lhs
@@ -203,7 +203,7 @@ First, the DataType itself; which is either a Node, a Leaf, or an Empty.
 \begin{code}
 data UniqFM ele
   = EmptyUFM
-  | LeafUFM !FastInt !ele
+  | LeafUFM !FastInt ele
   | NodeUFM !FastInt         -- the switching
             !FastInt         -- the delta
             (UniqFM ele)
-- 
1.7.10.4