git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
only use exported declarations in psc-docs

Previously was using the full list of declarations for some things, which meant that (for example) a module which contained some non-exported type declarations could end up with a "Types" header but nothing underneath it.

commitaae56784d4b4422dfd92a633af7a51bcfe73ed2b authorHarry Garrood <harry@garrood.me> dateMon 22 Dec 2014, 02:04 (12 years ago) parentf455f4a
1 file changed+5−5
compare with golang
unifiedsplit
psc-docs/Main.hs+5−5
psc-docs/Main.hs+5−5
@@ -75,8 +75,8 @@ renderModules showHierarchy ms = do
7575 mapM_ (renderModule showHierarchy) ms
7676
7777renderModule :: Bool -> P.Module -> Docs
78−renderModule showHierarchy mdl@(P.Module moduleName ds exps) =
79− let exported = P.exportedDeclarations mdl
78+renderModule showHierarchy mdl =
79+ let ds = P.exportedDeclarations mdl
8080 hasTypes = any isTypeDeclaration ds
8181 hasTypeclasses = any isTypeClassDeclaration ds
8282 hasTypeclassInstances = any isTypeInstanceDeclaration ds
@@ -87,7 +87,7 @@ renderModule showHierarchy mdl@(P.Module moduleName ds exps) =
8787 when hasTypes $ do
8888 headerLevel 3 "Types"
8989 spacer
90− renderTopLevel exps (filter isTypeDeclaration exported)
90+ renderTopLevel exps (filter isTypeDeclaration ds)
9191 spacer
9292 when hasTypeclasses $ do
9393 headerLevel 3 "Type Classes"
@@ -95,7 +95,7 @@ renderModule showHierarchy mdl@(P.Module moduleName ds exps) =
9595 when showHierarchy $ do
9696 renderTypeclassImage moduleName
9797 spacer
98− renderTopLevel exps (filter isTypeClassDeclaration exported)
98+ renderTopLevel exps (filter isTypeClassDeclaration ds)
9999 spacer
100100 when hasTypeclassInstances $ do
101101 headerLevel 3 "Type Class Instances"
@@ -105,7 +105,7 @@ renderModule showHierarchy mdl@(P.Module moduleName ds exps) =
105105 when hasValues $ do
106106 headerLevel 3 "Values"
107107 spacer
108− renderTopLevel exps (filter isValueDeclaration exported)
108+ renderTopLevel exps (filter isValueDeclaration ds)
109109 spacer
110110
111111renderTopLevel :: Maybe [P.DeclarationRef] -> [P.Declaration] -> Docs