X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FUniqFM.lhs;h=61c858deb73a8996ca863990f9e566bd5b7d5298;hp=de02227031fb5a06c1c6fa92dc9bbc4518727f35;hb=5cdd6d82bb1a4c4b90ea2488dcf1fef25c3cc9a4;hpb=f6ee56796bde1970196a2e3bf6ba303e3f7ed2b4

diff --git a/compiler/utils/UniqFM.lhs b/compiler/utils/UniqFM.lhs
index de02227..61c858d 100644
--- a/compiler/utils/UniqFM.lhs
+++ b/compiler/utils/UniqFM.lhs
@@ -204,10 +204,10 @@ First, the DataType itself; which is either a Node, a Leaf, or an Empty.
 data UniqFM ele
   = EmptyUFM
   | LeafUFM FastInt ele
-  | NodeUFM FastInt	    -- the switching
-	    FastInt	    -- the delta
-	    (UniqFM ele)
-	    (UniqFM ele)
+  | NodeUFM FastInt         -- the switching
+            FastInt         -- the delta
+            (UniqFM ele)
+            (UniqFM ele)
 -- INVARIANT: the children of a NodeUFM are never EmptyUFMs
 
 {-