Whitespace

diff --git a/compiler/utils/UniqFM.lhs b/compiler/utils/UniqFM.lhs
index de02227..61c858d 100644 (file)
--- 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
 
 {-