From 40f3a8556aca5296169dc499b6a1505df81dfe5a Mon Sep 17 00:00:00 2001 From: simonmar Date: Fri, 18 Jun 1999 13:06:33 +0000 Subject: [PATCH] [project @ 1999-06-18 13:06:33 by simonmar] Literate tidyups from Wolfram. --- ghc/compiler/main/MkIface.lhs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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} %* * %************************************************************************ -- 1.7.10.4