X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FcompMan%2FCompManager.lhs;h=e645cf265a6a7d85c5f75ef78ec5d0f0995687ae;hb=6c06a48bba9bd87d8ca382e19a511ce4c93ca46d;hp=82183f1d38688f34938d2442b497d8c086bac066;hpb=af621730109cadcb693063ac82ee2e0765b8bbe4;p=ghc-hetmet.git

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 82183f1..e645cf2 100644
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -948,7 +948,8 @@ upsweep_mod hsc_env oldUI summary1 reachable_inc_me
 	       | otherwise = False
 
         compresult <- compile hsc_env_strictDC this_mod location 
-			      source_unchanged have_object mb_old_iface
+			(ms_hs_date summary1) 
+			source_unchanged have_object mb_old_iface
 
         case compresult of