From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 11 Jul 2008 12:01:53 +0000 (+0000)
Subject: small improvement to an error message
X-Git-Tag: Before_cabalised-GHC~22
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=2377596a0f1992347edbaa7dcd8b431f93e196a7

small improvement to an error message
---

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index 3f68224..5626d24 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -2235,7 +2235,7 @@ findModule s mod_name maybe_pkg = withSession s $ \hsc_env ->
 	  case res of
 	    Found _ m | modulePackageId m /= this_pkg -> return m
 		      | otherwise -> throwDyn (CmdLineError (showSDoc $
-					text "module" <+> pprModule m <+>
+					text "module" <+> quotes (ppr (moduleName m)) <+>
 					text "is not loaded"))
 	    err -> let msg = cannotFindModule dflags mod_name err in
 		   throwDyn (CmdLineError (showSDoc msg))