From 5cdd6d82bb1a4c4b90ea2488dcf1fef25c3cc9a4 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sun, 3 Feb 2008 00:39:29 +0000 Subject: [PATCH] Whitespace --- compiler/utils/UniqFM.lhs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 {- -- 1.7.10.4