git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
fix a compile error
7b326f4Harry Garrood
psc-docs/Main.hs+1−1
compare with golang
unifiedsplit
@@ -75,7 +75,7 @@ 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 =
78+renderModule showHierarchy mdl@(P.Module moduleName _ exps) =
79 let ds = 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