ngws/mad
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Understøt HTML i Markdown-filer

Browse Source
This commit is contained in:
Niels G. W. Serup
2024-09-30 23:34:52 +02:00
parent f6c73cf906
commit 3d4c79cc83
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
byg/src/Evaluation/FunctionIO.hs
View File

@@ -56,7 +56,7 @@ evalFunctionIO f x = case (f, x) of
(RunPandoc, String s) -> do (RunPandoc, String s) -> do
contents <- T.readFile s contents <- T.readFile s
html <- P.runIOorExplode (P.writeHtml5 P.def =<< P.readMarkdown P.def contents) html <- P.runIOorExplode (P.writeHtml5 P.def =<< P.readMarkdown (P.def { P.readerExtensions = P.extensionsFromList [ P.Ext_raw_html ] }) contents)
pure $ Text $ TL.toStrict $ B.renderHtml html pure $ Text $ TL.toStrict $ B.renderHtml html
_ -> _ ->