| definition: |
genHtmlExportIndex :: [String] -> [String] -> [String] -> [String] -> BaseHtml
genHtmlExportIndex exptypes expcons expfields expfuns =
ulistWithClass "nav flex-column" "nav-item"
(concatMap (\ (htmlnames,cattitle) ->
if null htmlnames
then []
else [bold [htxt cattitle]] : htmlnames )
[(htmltypes , "Datatypes:"),
(htmlcons , "Constructors:"),
(htmlfields, "Fields:"),
(htmlfuns , "Operations:")])
where
htmltypes = map (\n->[href ('#':n) [htxt n]])
(nub (sortStrings exptypes))
htmlcons = map (\n->[href ('#':n++"_CONS") [htxt n]])
(nub (sortStrings expcons))
htmlfields = map (\n->[href ('#':n++"_FIELD") [htxt n]])
(nub (sortStrings expfields))
htmlfuns = map (\n->[href ('#':n) [htxt n]])
(nub (sortStrings expfuns))
|
| demand: |
no demanded arguments |
| deterministic: |
deterministic operation |
| documentation: |
-- generate HTML index for all exported names: |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{(_,_,_,_) |-> _}
|
| name: |
genHtmlExportIndex |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
[String] -> [String] -> [String] -> [String] -> HTML.Base.BaseHtml |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |