From 2377596a0f1992347edbaa7dcd8b431f93e196a7 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 11 Jul 2008 12:01:53 +0000 Subject: [PATCH] small improvement to an error message --- compiler/main/GHC.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 1.7.10.4