X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnEnv.lhs;h=e5a185d3c65eb76f4e9e9e5ed0782f0dd94c4d85;hb=2c6d73e2ca9a545c4295c6f532cd3612e7fd3d8d;hp=4d04154fb87102df10b0ec51bdd93687a26459c5;hpb=0004357ccaa3149cb112f5f5df1af60e65baad79;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index 4d04154..e5a185d 100644
--- a/ghc/compiler/rename/RnEnv.lhs
+++ b/ghc/compiler/rename/RnEnv.lhs
@@ -983,7 +983,7 @@ dupNamesErr descriptor ((name,loc) : dup_things)
   = pushSrcLocRn loc $
     addErrRn ((ptext SLIT("Conflicting definitions for") <+> quotes (ppr name))
 	      $$ 
-	      (ptext SLIT("in") <+> descriptor))
+	      descriptor)
 
 warnDeprec :: Name -> DeprecTxt -> RnM d ()
 warnDeprec name txt
@@ -992,3 +992,4 @@ warnDeprec name txt
 		     quotes (ppr name) <+> text "is deprecated:", 
 		     nest 4 (ppr txt) ])
 \end{code}
+