X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FUniqFM.lhs;h=4081017f87ecbfee838d1efd6b19a747c692447d;hb=268377f59589e6afec1048458c350011ebb74afe;hp=57295d50ae95f37a1d79499ec8bc48de6bb06a01;hpb=68bc57c179fe4f1d739a435766bced7236b36261;p=ghc-hetmet.git

diff --git a/compiler/utils/UniqFM.lhs b/compiler/utils/UniqFM.lhs
index 57295d5..4081017 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)
@@ -839,7 +839,3 @@ use_snd :: a -> b -> b
 use_snd _ b = b
 \end{code}
 
-\begin{code}
-_unused :: FS.FastString
-_unused = undefined
-\end{code}