From: simonpj@microsoft.com <unknown>
Date: Fri, 11 Aug 2006 11:03:47 +0000 (+0000)
Subject: Indent an error message
X-Git-Tag: Before_FC_branch_merge~223
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=68bc0b6f15eefa83e7d11227ec09dbf6a301ab08;p=ghc-hetmet.git

Indent an error message
---

diff --git a/compiler/typecheck/TcDeriv.lhs b/compiler/typecheck/TcDeriv.lhs
index 22168fc..601f0de 100644
--- a/compiler/typecheck/TcDeriv.lhs
+++ b/compiler/typecheck/TcDeriv.lhs
@@ -952,7 +952,7 @@ genTaggeryBinds infos
 \begin{code}
 derivingThingErr clas tys tycon tyvars why
   = sep [hsep [ptext SLIT("Can't make a derived instance of"), quotes (ppr pred)],
-	 parens why]
+	 nest 2 (parens why)]
   where
     pred = mkClassPred clas (tys ++ [mkTyConApp tycon (mkTyVarTys tyvars)])