From 3d4c79cc8302059399b1d87fc8587d34a24bb276 Mon Sep 17 00:00:00 2001 From: "Niels G. W. Serup" Date: Mon, 30 Sep 2024 23:34:52 +0200 Subject: [PATCH] =?UTF-8?q?Underst=C3=B8t=20HTML=20i=20Markdown-filer?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- byg/src/Evaluation/FunctionIO.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/byg/src/Evaluation/FunctionIO.hs b/byg/src/Evaluation/FunctionIO.hs index 877c666..a6e7d06 100644 --- 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 _ ->