git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
only use exported declarations in psc-docs
aae5678Harry Garrood
psc-docs/Main.hs+5−5
compare with golang
unifiedsplit
@@ -75,8 +75,8 @@ renderModules showHierarchy ms = do
75 mapM_ (renderModule showHierarchy) ms
75 mapM_ (renderModule showHierarchy) ms
76
76
77renderModule :: Bool -> P.Module -> Docs
77renderModule :: Bool -> P.Module -> Docs
78−renderModule showHierarchy mdl@(P.Module moduleName ds exps) =
78+renderModule showHierarchy mdl =
79− let exported = P.exportedDeclarations mdl
79+ let ds = P.exportedDeclarations mdl
80 hasTypes = any isTypeDeclaration ds
80 hasTypes = any isTypeDeclaration ds
81 hasTypeclasses = any isTypeClassDeclaration ds
81 hasTypeclasses = any isTypeClassDeclaration ds
82 hasTypeclassInstances = any isTypeInstanceDeclaration ds
82 hasTypeclassInstances = any isTypeInstanceDeclaration ds
@@ -87,7 +87,7 @@ renderModule showHierarchy mdl@(P.Module moduleName ds exps) =
87 when hasTypes $ do
87 when hasTypes $ do
88 headerLevel 3 "Types"
88 headerLevel 3 "Types"
89 spacer
89 spacer
90− renderTopLevel exps (filter isTypeDeclaration exported)
90+ renderTopLevel exps (filter isTypeDeclaration ds)
91 spacer
91 spacer
92 when hasTypeclasses $ do
92 when hasTypeclasses $ do
93 headerLevel 3 "Type Classes"
93 headerLevel 3 "Type Classes"
@@ -95,7 +95,7 @@ renderModule showHierarchy mdl@(P.Module moduleName ds exps) =
95 when showHierarchy $ do
95 when showHierarchy $ do
96 renderTypeclassImage moduleName
96 renderTypeclassImage moduleName
97 spacer
97 spacer
98− renderTopLevel exps (filter isTypeClassDeclaration exported)
98+ renderTopLevel exps (filter isTypeClassDeclaration ds)
99 spacer
99 spacer
100 when hasTypeclassInstances $ do
100 when hasTypeclassInstances $ do
101 headerLevel 3 "Type Class Instances"
101 headerLevel 3 "Type Class Instances"
@@ -105,7 +105,7 @@ renderModule showHierarchy mdl@(P.Module moduleName ds exps) =
105 when hasValues $ do
105 when hasValues $ do
106 headerLevel 3 "Values"
106 headerLevel 3 "Values"
107 spacer
107 spacer
108− renderTopLevel exps (filter isValueDeclaration exported)
108+ renderTopLevel exps (filter isValueDeclaration ds)
109 spacer
109 spacer
110
110
111renderTopLevel :: Maybe [P.DeclarationRef] -> [P.Declaration] -> Docs
111renderTopLevel :: Maybe [P.DeclarationRef] -> [P.Declaration] -> Docs