@@ -150,7 +150,6 @@ renderDeclaration (P.DataDeclaration dtype name args ctors) title =
150150 typeApp = foldl P.TypeApp (P.TypeConstructor (P.Qualified Nothing name)) (map toTypeVar args)
151151 code = keyword (show dtype) <> sp <> renderType typeApp
152152 children = map renderCtor ctors
153− -- TODO: Comments for data constructors?
154153 renderCtor (ctor', tys) =
155154 RenderedChildDeclaration (show ctor') Nothing Nothing (ChildDataConstructor ctorSignature ctorCode)
156155 where
@@ -200,7 +199,6 @@ renderDeclaration (P.TypeClassDeclaration name args implies ds) title = do
200199
201200 children = map renderClassMember ds
202201
203− -- TODO: Comments for type class members?
204202 renderClassMember (P.PositionedDeclaration _ _ d) = renderClassMember d
205203 renderClassMember (P.TypeDeclaration ident' ty) =
206204 RenderedChildDeclaration (show ident') Nothing Nothing (ChildTypeClassMember contextualType actualType)