Understøt HTML i Markdown-filer

2024-09-30 23:34:52 +02:00
parent f6c73cf906
commit 3d4c79cc83
1 changed files with 1 additions and 1 deletions
--- a/byg/src/Evaluation/FunctionIO.hs
+++ b/byg/src/Evaluation/FunctionIO.hs
@@ -56,7 +56,7 @@ evalFunctionIO f x = case (f, x) of

  (RunPandoc, String s) -> do
    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

  _ ->