[project @ 2001-09-10 07:25:17 by simonpj]

Fix ungramatical error message

[project @ 2001-09-10 07:25:17 by simonpj]
c51b55b8 · Simon Peyton Jones · 2aa5738f · c51b55b8
Commit c51b55b8 authored 23 years ago by Simon Peyton Jones
--- a/ghc/compiler/rename/RnEnv.lhs
+++ b/ghc/compiler/rename/RnEnv.lhs
@@ -994,9 +994,7 @@ unknownNameErr name

 qualNameErr descriptor (name,loc)
  = pushSrcLocRn loc $
-    addErrRn (hsep [ ptext SLIT("Invalid use of qualified name"), 
-		     quotes (ppr name),
-		     ptext SLIT("in"),
+    addErrRn (vcat [ ptext SLIT("Invalid use of qualified name") <+> quotes (ppr name),
 		     descriptor])

 dupNamesErr descriptor ((name,loc) : dup_things)