X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FGHC.hs;h=967daf35404cd4d7ce794aa2ebe6376d50fe2795;hb=a8984a8784090c853a27e832f31e8dd157d01216;hp=dd9267772bd3df349f1f3eb67e3c62820da146d5;hpb=1168a37f6bfad3d7025ecb21b9917799937936f3;p=ghc-hetmet.git

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index dd92677..967daf3 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -1153,7 +1153,7 @@ upsweep hsc_env old_hpt stable_mods cleanup sccs = do
 	cleanup		-- Remove unwanted tmp files between compilations
 
         case mb_mod_info of
-	    Nothing -> return (Failed, hsc_env, [])
+	    Nothing -> return (Failed, hsc_env, done)
 	    Just mod_info -> do 
 		let this_mod = ms_mod_name mod