From: simonpj <unknown>
Date: Mon, 10 Sep 2001 07:25:17 +0000 (+0000)
Subject: [project @ 2001-09-10 07:25:17 by simonpj]
X-Git-Tag: Approximately_9120_patches~1002
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c51b55b80eb58319287ba54f10e1c0bf6d024fe4;p=ghc-hetmet.git

[project @ 2001-09-10 07:25:17 by simonpj]
Fix ungramatical error message
---

diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index 69ec8f6..d5f39f0 100644
--- 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)