git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
docs: Fix display of 'where' keyword after typeclasses
a3f5c8cHarry Garrood
src/Language/PureScript/Docs/Render.hs+6−1
compare with golang
unifiedsplit
@@ -45,7 +45,9 @@ renderDeclaration Declaration{..} =
45 [ keywordClass ]
45 [ keywordClass ]
46 ++ maybe [] (:[]) superclasses
46 ++ maybe [] (:[]) superclasses
47 ++ [renderType (typeApp declTitle args)]
47 ++ [renderType (typeApp declTitle args)]
48+ ++ if any (isTypeClassMember . cdeclInfo) declChildren
48− ++ if (not (null declChildren)) then [keywordWhere] else []
49+ then [keywordWhere]
50+ else []
49
51
50 where
52 where
51 superclasses
53 superclasses
@@ -55,6 +57,9 @@ renderDeclaration Declaration{..} =
55 <> mintersperse (syntax "," <> sp) (map renderConstraint implies)
57 <> mintersperse (syntax "," <> sp) (map renderConstraint implies)
56 <> syntax ")" <> sp <> syntax "<="
58 <> syntax ")" <> sp <> syntax "<="
57
59
60+ isTypeClassMember (ChildTypeClassMember _) = True
61+ isTypeClassMember _ = False
62+
58renderChildDeclaration :: ChildDeclaration -> RenderedCode
63renderChildDeclaration :: ChildDeclaration -> RenderedCode
59renderChildDeclaration ChildDeclaration{..} =
64renderChildDeclaration ChildDeclaration{..} =
60 mintersperse sp $ case cdeclInfo of
65 mintersperse sp $ case cdeclInfo of