From 92eeda1e1d846a082a60caab1b75593d7cc668ed Mon Sep 17 00:00:00 2001 From: Thomas Schilling Date: Sun, 20 Jul 2008 17:15:54 +0000 Subject: [PATCH] Fix Haddock errors. --- compiler/hsSyn/Convert.lhs | 2 +- compiler/hsSyn/HsExpr.lhs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) 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' } diff --git a/compiler/hsSyn/HsExpr.lhs b/compiler/hsSyn/HsExpr.lhs index d213158..a28b26a 100644 --- a/compiler/hsSyn/HsExpr.lhs +++ b/compiler/hsSyn/HsExpr.lhs @@ -160,7 +160,7 @@ data HsExpr id | RecordUpd (LHsExpr id) (HsRecordBinds id) [DataCon] -- Filled in by the type checker to the - -- *non-empty* list of DataCons that have + -- _non-empty_ list of DataCons that have -- all the upd'd fields [PostTcType] -- Argument types of *input* record type [PostTcType] -- and *output* record type @@ -198,7 +198,7 @@ data HsExpr id | HsBracketOut (HsBracket Name) -- Output of the type checker is -- the *original* [PendingSplice] -- renamed expression, plus - -- *typechecked* splices to be + -- _typechecked_ splices to be -- pasted back in by the desugarer | HsSpliceE (HsSplice id) -- 1.7.10.4