anoma/juvix
1
1
Fork 0
mirror of https://github.com/anoma/juvix.git synced 2025-01-05 22:46:08 +03:00
Code Issues Projects Releases Wiki Activity

Show import with public keyword in the html doc (#2456)

Browse Source 
- Closes #2455
This commit is contained in:
Jan Mas Rovira 2023-10-23 17:08:27 +02:00 committed by GitHub
parent c6b3b95db3
commit f58c4a6d17
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Juvix/Compiler/Backend/Html/Translation/FromTyped.hs
View File

@ -431,7 +431,7 @@ goStatement = \case
StatementOpenModule t -> goOpen t StatementOpenModule t -> goOpen t
StatementFunctionDef t -> goFunctionDef t StatementFunctionDef t -> goFunctionDef t
StatementSyntax s -> goSyntax s StatementSyntax s -> goSyntax s
StatementImport {} -> mempty StatementImport s -> goImport s
StatementModule m -> goLocalModule m StatementModule m -> goLocalModule m
StatementProjectionDef {} -> mempty StatementProjectionDef {} -> mempty
where where
@ -507,6 +507,11 @@ goLocalModule def = fmap (fromMaybe mempty) . runFail $ do
<$> mconcatMap goStatement (def ^. moduleBody) <$> mconcatMap goStatement (def ^. moduleBody)
return (header' <> body') return (header' <> body')
goImport :: forall r. (Members '[Reader HtmlOptions] r) => Import 'Scoped -> Sem r Html
goImport op
| Just Public <- op ^? importOpen . _Just . openPublic = noDefHeader <$> ppCodeHtml defaultOptions op
| otherwise = mempty
goOpen :: forall r. (Members '[Reader HtmlOptions] r) => OpenModule 'Scoped -> Sem r Html goOpen :: forall r. (Members '[Reader HtmlOptions] r) => OpenModule 'Scoped -> Sem r Html
goOpen op goOpen op
| Public <- op ^. openModuleParams . openPublic = noDefHeader <$> ppCodeHtml defaultOptions op | Public <- op ^. openModuleParams . openPublic = noDefHeader <$> ppCodeHtml defaultOptions op