@@ -150,7 +150,6 @@ renderDeclaration (P.DataDeclaration dtype name args ctors) title =
150 typeApp = foldl P.TypeApp (P.TypeConstructor (P.Qualified Nothing name)) (map toTypeVar args)
150 typeApp = foldl P.TypeApp (P.TypeConstructor (P.Qualified Nothing name)) (map toTypeVar args)
151 code = keyword (show dtype) <> sp <> renderType typeApp
151 code = keyword (show dtype) <> sp <> renderType typeApp
152 children = map renderCtor ctors
152 children = map renderCtor ctors
153− -- TODO: Comments for data constructors?
154 renderCtor (ctor', tys) =
153 renderCtor (ctor', tys) =
155 RenderedChildDeclaration (show ctor') Nothing Nothing (ChildDataConstructor ctorSignature ctorCode)
154 RenderedChildDeclaration (show ctor') Nothing Nothing (ChildDataConstructor ctorSignature ctorCode)
@@ -200,7 +199,6 @@ renderDeclaration (P.TypeClassDeclaration name args implies ds) title = do
201 children = map renderClassMember ds
200 children = map renderClassMember ds
203− -- TODO: Comments for type class members?
204 renderClassMember (P.PositionedDeclaration _ _ d) = renderClassMember d
202 renderClassMember (P.PositionedDeclaration _ _ d) = renderClassMember d
205 renderClassMember (P.TypeDeclaration ident' ty) =
203 renderClassMember (P.TypeDeclaration ident' ty) =
206 RenderedChildDeclaration (show ident') Nothing Nothing (ChildTypeClassMember contextualType actualType)
204 RenderedChildDeclaration (show ident') Nothing Nothing (ChildTypeClassMember contextualType actualType)