From c9cb3dfd382ff304c033dd60e32857782e025623 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 1 Oct 2002 08:59:43 +0000
Subject: [PATCH] [project @ 2002-10-01 08:59:43 by simonpj] Use the
 ModSummary fields in record construction

---
 ghc/compiler/compMan/CompManager.lhs |    7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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
-- 
1.7.10.4