diff options
| author | simonpj@microsoft.com <unknown> | 2010-09-15 14:47:24 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-09-15 14:47:24 +0000 |
| commit | 236d504fc85de0749e7ed33dc4c067488ae04e3f (patch) | |
| tree | b2fbab6646ff32780f9f7852ed30b63d652c7929 | |
| parent | 5c5c0dcbb1680546a7cbd76a21c4c0dbab84dbf1 (diff) | |
| download | haskell-236d504fc85de0749e7ed33dc4c067488ae04e3f.tar.gz | |
Add quotes in error message
| -rw-r--r-- | compiler/typecheck/TcInstDcls.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/typecheck/TcInstDcls.lhs b/compiler/typecheck/TcInstDcls.lhs index e8182aca09..3f45db3f20 100644 --- a/compiler/typecheck/TcInstDcls.lhs +++ b/compiler/typecheck/TcInstDcls.lhs @@ -1029,7 +1029,7 @@ wrapId wrapper id = mkHsWrap wrapper (HsVar id) derivBindCtxt :: Id -> Class -> [Type ] -> LHsBind Name -> SDoc derivBindCtxt sel_id clas tys _bind - = vcat [ ptext (sLit "When typechecking the code for ") <+> ppr sel_id + = vcat [ ptext (sLit "When typechecking the code for ") <+> quotes (ppr sel_id) , nest 2 (ptext (sLit "in a standalone derived instance for") <+> quotes (pprClassPred clas tys) <> colon) , nest 2 $ ptext (sLit "To see the code I am typechecking, use -ddump-deriv") ] |