From: simonmar <unknown>
Date: Mon, 6 May 2002 08:30:05 +0000 (+0000)
Subject: [project @ 2002-05-06 08:30:05 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~2054
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2cedbb795113da2fea8208f3c21fe3b56012c672;p=ghc-hetmet.git

[project @ 2002-05-06 08:30:05 by simonmar]
- Make the mi_usages and mi_deprecs fields of ModIface lazy again
  (mi_deprecs was already slurped lazilly from the interface file, but
  the strictness annotation on its field meant it was actually slurped
  strictly.  We're about to slurp mi_usages lazilly too.)
---

diff --git a/ghc/compiler/main/HscTypes.lhs b/ghc/compiler/main/HscTypes.lhs
index 046f44a..045c17f 100644
--- a/ghc/compiler/main/HscTypes.lhs
+++ b/ghc/compiler/main/HscTypes.lhs
@@ -168,10 +168,11 @@ data ModIface
 
 	mi_boot	    :: !IsBootInterface,    -- read from an hi-boot file?
 
-        mi_usages   :: ![ImportVersion Name],	
+        mi_usages   :: [ImportVersion Name],	
 		-- Usages; kept sorted so that it's easy to decide
 		-- whether to write a new iface file (changing usages
 		-- doesn't affect the version of this module)
+		-- NOT STRICT!  we read this field lazilly from the interface file
 
         mi_exports  :: ![ExportItem],
 		-- What it exports Kept sorted by (mod,occ), to make
@@ -182,7 +183,8 @@ data ModIface
 		-- interface from a file.
 
         mi_fixities :: !FixityEnv,	    -- Fixities
-	mi_deprecs  :: !Deprecations,	    -- Deprecations
+	mi_deprecs  :: Deprecations,	    -- Deprecations
+		-- NOT STRICT!  we read this field lazilly from the interface file
 
 	mi_decls    :: IfaceDecls	    -- The RnDecls form of ModDetails
 		-- NOT STRICT!  we fill this field with _|_ sometimes
@@ -524,7 +526,7 @@ collectFixities env decls
 
 %************************************************************************
 %*									*
-\subsection{ModIface}
+\subsection{WhatsImported}
 %*									*
 %************************************************************************