[project @ 2002-04-29 14:03:38 by simonmar]

[ghc-hetmet.git] / ghc / compiler / rename / RnBinds.lhs

diff --git a/ghc/compiler/rename/RnBinds.lhs b/ghc/compiler/rename/RnBinds.lhs
index bb6f9ea..8bc83e2 100644 (file)
--- a/ghc/compiler/rename/RnBinds.lhs
+++ b/ghc/compiler/rename/RnBinds.lhs
@@ -556,14 +556,14 @@ renameSig (InlineSig b v p src_loc)
 \begin{code}
 dupSigDeclErr sig
   = pushSrcLocRn loc $
-    addErrRn (sep [ptext SLIT("Duplicate") <+> ptext what_it_is <> colon,
+    addErrRn (sep [ptext SLIT("Duplicate") <+> what_it_is <> colon,
                   ppr sig])
   where
     (what_it_is, loc) = hsSigDoc sig
 
 unknownSigErr sig
   = pushSrcLocRn loc $
-    addErrRn (sep [ptext SLIT("Misplaced") <+> ptext what_it_is <> colon,
+    addErrRn (sep [ptext SLIT("Misplaced") <+> what_it_is <> colon,
                   ppr sig])
   where
     (what_it_is, loc) = hsSigDoc sig