From 81f020eb84798c495ea1c448213739c252ed4d33 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 6 Nov 2001 11:04:16 +0000
Subject: [PATCH] [project @ 2001-11-06 11:04:16 by simonmar] cosmetic only:
 reformat to 80 cols

---
 ghc/compiler/rename/RnIfaces.lhs |   52 ++++++++++++++++++++++----------------
 1 file changed, 30 insertions(+), 22 deletions(-)

diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs
index 3880909..5e63dde 100644
--- a/ghc/compiler/rename/RnIfaces.lhs
+++ b/ghc/compiler/rename/RnIfaces.lhs
@@ -144,9 +144,9 @@ mkImportInfo this_mod imports
 		-- (apart from hiding some, perhaps)
 	import_all_mods = [ m | ImportDecl m _ _ _ imp_list _ <- imports,
 			        import_all imp_list ]
-		 	where
-			  import_all (Just (False, _)) = False	-- Imports are specified explicitly
-			  import_all other	       = True	-- Everything is imported
+	  where
+	   import_all (Just (False, _)) = False -- Imports are spec'd explicitly
+	   import_all other	        = True	-- Everything is imported
 
 	-- mv_map groups together all the things imported and used
 	-- from a particular module in this package
@@ -159,33 +159,41 @@ mkImportInfo this_mod imports
 			     add_item names _ = name:names
 
 	-- In our usage list we record
-	--	a) Specifically: Detailed version info for imports from modules in this package
-	--			 Gotten from iVSlurp plus import_all_mods
 	--
-	--	b) Everything:   Just the module version for imports from modules in other packages
-	--			 Gotten from iVSlurp plus import_all_mods
+	--	a) Specifically: Detailed version info for imports
+	--         from modules in this package Gotten from iVSlurp plus
+	--         import_all_mods
+	--
+	--	b) Everything: Just the module version for imports
+	--         from modules in other packages Gotten from iVSlurp plus
+	--         import_all_mods
 	--
-	--	c) NothingAtAll: The name only of modules, Baz, in this package that are 'below' us, 
-	--			 but which we didn't need at all (this is needed only to decide whether
-	--			 to open Baz.hi or Baz.hi-boot higher up the tree).
-	--			 This happens when a module, Foo, that we explicitly imported has 
-	--			 'import Baz' in its interface file, recording that Baz is below
-	--			 Foo in the module dependency hierarchy.  We want to propagate this info.
-	--			 These modules are in a combination of HIT/PIT and iImpModInfo
+	--	c) NothingAtAll: The name only of modules, Baz, in
+	--	   this package that are 'below' us, but which we didn't need
+	--	   at all (this is needed only to decide whether to open Baz.hi
+	--	   or Baz.hi-boot higher up the tree).  This happens when a
+	--	   module, Foo, that we explicitly imported has 'import Baz' in
+	--	   its interface file, recording that Baz is below Foo in the
+	--	   module dependency hierarchy.  We want to propagate this
+	--	   info.  These modules are in a combination of HIT/PIT and
+	--	   iImpModInfo
 	--
-	--	d) NothingAtAll: The name only of all orphan modules we know of (this is needed
-	--	   		 so that anyone who imports us can find the orphan modules)
-	--			 These modules are in a combination of HIT/PIT and iImpModInfo
+	--	d) NothingAtAll: The name only of all orphan modules
+	--	   we know of (this is needed so that anyone who imports us can
+	--	   find the orphan modules) These modules are in a combination
+	--	   of HIT/PIT and iImpModInfo
 
 	import_info0 = foldModuleEnv mk_imp_info  []	       pit
 	import_info1 = foldModuleEnv mk_imp_info  import_info0 hit
 	import_info  = not_even_opened_imports ++ import_info1
 
-		-- Recall that iImpModInfo describes modules that have been mentioned
-		-- in the import lists of interfaces we have opened, but which we have
-		-- not even opened when compiling this module
-	not_even_opened_imports = [ (mod_name, orphans, is_boot, NothingAtAll) 
-				  | (mod_name, (orphans, is_boot)) <- fmToList (iImpModInfo ifaces) ]
+		-- Recall that iImpModInfo describes modules that have
+		-- been mentioned in the import lists of interfaces we
+		-- have opened, but which we have not even opened when
+		-- compiling this module
+	not_even_opened_imports =
+	  [ (mod_name, orphans, is_boot, NothingAtAll) 
+	  | (mod_name, (orphans, is_boot)) <- fmToList (iImpModInfo ifaces) ]
 
 	
 	mk_imp_info :: ModIface -> [ImportVersion Name] -> [ImportVersion Name]
-- 
1.7.10.4