From: simonpj <unknown>
Date: Tue, 1 Oct 2002 08:59:43 +0000 (+0000)
Subject: [project @ 2002-10-01 08:59:43 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1601
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c9cb3dfd382ff304c033dd60e32857782e025623;p=ghc-hetmet.git

[project @ 2002-10-01 08:59:43 by simonpj]
Use the ModSummary fields in record construction
---

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 3b3a2aa..c2237ea 100644
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -1236,9 +1236,10 @@ summariseFile file
                  Nothing     -> noHsFileErr mod_name
                  Just src_fn -> getModificationTime src_fn
 
-        return (ModSummary mod
-                           location{ml_hspp_file=Just hspp_fn}
-                           srcimps the_imps src_timestamp)
+        return (ModSummary { ms_mod = mod, 
+                             ms_location = location{ml_hspp_file=Just hspp_fn},
+                             ms_srcimps = srcimps, ms_imps = the_imps,
+			     ms_hs_date = src_timestamp })
 
 -- Summarise a module, and pick up source and timestamp.
 summarise :: Module -> ModLocation -> Maybe ModSummary