Commit 2377596a authored by Simon Marlow's avatar Simon Marlow
Browse files

small improvement to an error message

parent 087fc5a7
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment