From: simonpj@microsoft.com <unknown>
Date: Tue, 30 Dec 2008 15:04:02 +0000 (+0000)
Subject: Add quotes to error message
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=c37da9660c845b0199e730679c505fde3a6ab2c5;p=ghc-hetmet.git

Add quotes to error message
---

diff --git a/compiler/typecheck/TcInstDcls.lhs b/compiler/typecheck/TcInstDcls.lhs
index e7c472b..2b3e9c0 100644
--- a/compiler/typecheck/TcInstDcls.lhs
+++ b/compiler/typecheck/TcInstDcls.lhs
@@ -963,7 +963,7 @@ mustBeVarArgErr ty =
 wrongATArgErr :: Type -> Type -> SDoc
 wrongATArgErr ty instTy =
   sep [ ptext (sLit "Type indexes must match class instance head")
-      , ptext (sLit "Found") <+> ppr ty <+> ptext (sLit "but expected") <+>
-         ppr instTy
+      , ptext (sLit "Found") <+> quotes (ppr ty)
+        <+> ptext (sLit "but expected") <+> quotes (ppr instTy)
       ]
 \end{code}