From: sof <unknown>
Date: Wed, 30 Mar 2005 01:22:24 +0000 (+0000)
Subject: [project @ 2005-03-30 01:22:24 by sof]
X-Git-Tag: Initial_conversion_from_CVS_complete~854
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=8e30c1ff56780c728dfcc639e979388faceca6eb;p=ghc-hetmet.git

[project @ 2005-03-30 01:22:24 by sof]
Avoid a (rather verbose) GHC warning from being issued -- initialize the
runPhase.mod_summary.ms_obj_date field.
---

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index c6d7a4d..fea6651 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -651,6 +651,7 @@ runPhase (Hsc src_flavour) stop dflags0 basename suff input_fn get_output_fn _ma
 					ms_hspp_buf  = hspp_buf,
 					ms_location  = location4,
 					ms_hs_date   = src_timestamp,
+					ms_obj_date  = Nothing,
 					ms_imps	     = unused_field,
 					ms_srcimps   = unused_field }