From: simonmar <unknown>
Date: Fri, 18 Jun 1999 13:06:33 +0000 (+0000)
Subject: [project @ 1999-06-18 13:06:33 by simonmar]
X-Git-Tag: Approximately_9120_patches~6115
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=40f3a8556aca5296169dc499b6a1505df81dfe5a;p=ghc-hetmet.git

[project @ 1999-06-18 13:06:33 by simonmar]
Literate tidyups from Wolfram.
---

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index 9f8546e..0766eea 100644
--- a/ghc/compiler/main/MkIface.lhs
+++ b/ghc/compiler/main/MkIface.lhs
@@ -407,11 +407,11 @@ ifaceBinds hdl needed_ids final_ids binds
 	= case ifaceId get_idinfo needed False id rhs of
 		Nothing		      -> go needed binds pretties emitted
 		Just (pretty, extras) -> let
-					    needed' = (needed `unionVarSet` extras) `delVarSet` id
-						-- 'extras' can include the Id itself via a rule
-					    emitted' = emitted `extendVarSet` id
-					 in
-					 go needed' binds (pretty `consBag` pretties) emitted'
+			needed' = (needed `unionVarSet` extras) `delVarSet` id
+			-- 'extras' can include the Id itself via a rule
+			emitted' = emitted `extendVarSet` id
+			in
+			go needed' binds (pretty `consBag` pretties) emitted'
 
 	-- Recursive groups are a bit more of a pain.  We may only need one to
 	-- start with, but it may call out the next one, and so on.  So we
@@ -599,7 +599,7 @@ ppr_unqual_name name = pprOccName (getOccName name)
 
 %************************************************************************
 %*				 					*
-\subsection{Comparisons
+\subsection{Comparisons}
 %*				 					*
 %************************************************************************