Verified Commit d4d301ba authored by Camil Staps's avatar Camil Staps 🚀

Minor enhancements

parent 65a0b8af
Pipeline #14658 failed with stage
in 56 seconds
...@@ -20,7 +20,7 @@ import Data.Maybe ...@@ -20,7 +20,7 @@ import Data.Maybe
from syntax import from syntax import
:: ClassDef{class_ident}, :: ClassDef{class_ident},
:: FunKind, :: FunKind(FK_Macro),
:: FunSpecials, :: FunSpecials,
:: GenericDef{gen_ident}, :: GenericDef{gen_ident},
:: Ident{id_name}, :: Ident{id_name},
...@@ -58,7 +58,7 @@ collectModule mfo fp w ...@@ -58,7 +58,7 @@ collectModule mfo fp w
, mod_classes = [collectClass doc pd \\ pd=:(PD_Class _ _) <- dcldefs] , mod_classes = [collectClass doc pd \\ pd=:(PD_Class _ _) <- dcldefs]
, mod_generics = [collectGeneric doc pd \\ pd=:(PD_Generic _) <- dcldefs] , mod_generics = [collectGeneric doc pd \\ pd=:(PD_Generic _) <- dcldefs]
, mod_functions = [collectFunction doc pd \\ pd=:(PD_TypeSpec _ _ _ (Yes _) _) <- dcldefs] , mod_functions = [collectFunction doc pd \\ pd=:(PD_TypeSpec _ _ _ (Yes _) _) <- dcldefs]
, mod_macros = [collectMacro dcldefs doc pd \\ pd=:(PD_Function _ _ _ _ _ _) <- dcldefs] , mod_macros = [collectMacro dcldefs doc pd \\ pd=:(PD_Function _ _ _ _ _ FK_Macro) <- dcldefs]
} }
, doc = moddoc , doc = moddoc
} }
......
...@@ -30,6 +30,7 @@ Start w ...@@ -30,6 +30,7 @@ Start w
# (modcoll,w) = mapSt (collectModule opts) fps w # (modcoll,w) = mapSt (collectModule opts) fps w
| any isError modcoll = exit [e \\ Error e <- modcoll] w | any isError modcoll = exit [e \\ Error e <- modcoll] w
# modcoll = map fromOk modcoll # modcoll = map fromOk modcoll
| isEmpty modcoll = exit ["No modules found"] w
# html = generateHTML modcoll # html = generateHTML modcoll
# (errs,w) = writeHTMLSite "doc" html w # (errs,w) = writeHTMLSite "doc" html w
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment