From c51b55b80eb58319287ba54f10e1c0bf6d024fe4 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 10 Sep 2001 07:25:17 +0000
Subject: [PATCH] [project @ 2001-09-10 07:25:17 by simonpj] Fix ungramatical
 error message

---
 ghc/compiler/rename/RnEnv.lhs |    4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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)
-- 
1.7.10.4