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

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index 03ad6de..967daf3 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -483,7 +483,10 @@ setGlobalTypeScope session ids
 -- Parsing Haddock comments
 
 parseHaddockComment :: String -> Either String (HsDoc RdrName)
-parseHaddockComment string = parseHaddockParagraphs (tokenise string)
+parseHaddockComment string = 
+  case parseHaddockParagraphs (tokenise string) of
+    MyLeft x  -> Left x
+    MyRight x -> Right x
 
 -- -----------------------------------------------------------------------------
 -- Loading the program
@@ -1150,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