From 2cedbb795113da2fea8208f3c21fe3b56012c672 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 6 May 2002 08:30:05 +0000
Subject: [PATCH] [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.)

---
 ghc/compiler/main/HscTypes.lhs |    8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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}
 %*									*
 %************************************************************************
 
-- 
1.7.10.4