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
 
   _ ->