X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FhsSyn%2FConvert.lhs;h=5a5bb1b1a9d8b0271ae3bdff53c0f38a7a5886f1;hp=5b3c5e8e9e88229d94508de0b38fb3732604de37;hb=92eeda1e1d846a082a60caab1b75593d7cc668ed;hpb=131320a1b79d965540449927b640ab037fb7a13a

diff --git a/compiler/hsSyn/Convert.lhs b/compiler/hsSyn/Convert.lhs
index 5b3c5e8..5a5bb1b 100644
--- a/compiler/hsSyn/Convert.lhs
+++ b/compiler/hsSyn/Convert.lhs
@@ -146,7 +146,7 @@ cvtTop (InstanceD tys ty decs)
 	; L loc pred' <- cvtPred ty
 	; inst_ty' <- returnL $ mkImplicitHsForAllTy ctxt' (L loc (HsPredTy pred'))
 	; returnL $ InstD (InstDecl inst_ty' binds' sigs' [])
-						       -- ^^no ATs in TH
+					-- no ATs in TH   ^^
 	}
 
 cvtTop (ForeignD ford) = do { ford' <- cvtForD ford; returnL $ ForD ford' }