From 62c5d17d3f468214e308289cf26db09d56b19ec1 Mon Sep 17 00:00:00 2001
From: Mauro Bieg <mb21@users.noreply.github.com>
Date: Fri, 8 Feb 2019 21:44:02 +0100
Subject: [PATCH] Make --metadata-file use pandoc-markdown (#5279)
see #5272
---
src/Text/Pandoc/Readers/Markdown.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index e24b93d7d..646e5aaa7 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -254,7 +254,8 @@ yamlToMeta bstr = do
let parser = do
meta <- yamlBsToMeta bstr
return $ runF meta defaultParserState
- parsed <- readWithM parser def ""
+ opts = def{ readerExtensions = pandocExtensions }
+ parsed <- readWithM parser def{ stateOptions = opts } ""
case parsed of
Right result -> return result
Left e -> throwError e