X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FGHC.hs;h=0654323ade68c934425c8b6ebcd09ed475e96a61;hb=26637fd8651f55fd424f3f6190220335ab5b80e9;hp=207f5a39f0838daae3603c0f2a682f3b807e1417;hpb=8a994e17e7502f31ce2d830ace2f00c305619fa3;p=ghc-hetmet.git

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index 207f5a3..0654323 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -1631,7 +1631,7 @@ preprocessFile dflags src_fn mb_phase (Just (buf, time))
 noModError :: DynFlags -> SrcSpan -> ModuleName -> FindResult -> IO ab
 -- ToDo: we don't have a proper line number for this error
 noModError dflags loc wanted_mod err
-  = throwDyn $ mkPlainErrMsg loc $ cantFindError dflags wanted_mod err
+  = throwDyn $ mkPlainErrMsg loc $ cannotFindModule dflags wanted_mod err
 				
 noHsFileErr loc path
   = throwDyn $ mkPlainErrMsg loc $ text "Can't find" <+> text path
@@ -1850,7 +1850,7 @@ findModule' hsc_env mod_name maybe_pkg =
 	  case res of
 	    Found _ m | modulePackageId m /= this_pkg -> return m
                         -- not allowed to be a home module
-	    err -> let msg = cantFindError dflags mod_name err in
+	    err -> let msg = cannotFindModule dflags mod_name err in
 		   throwDyn (CmdLineError (showSDoc msg))
 
 #ifdef GHCI