@@ -254,7 +254,8 @@ yamlToMeta bstr = do
254 let parser = do
254 let parser = do
255 meta <- yamlBsToMeta bstr
255 meta <- yamlBsToMeta bstr
256 return $ runF meta defaultParserState
256 return $ runF meta defaultParserState
257+ opts = def{ readerExtensions = pandocExtensions }
257− parsed <- readWithM parser def ""
258+ parsed <- readWithM parser def{ stateOptions = opts } ""
258 case parsed of
259 case parsed of
259 Right result -> return result
260 Right result -> return result
260 Left e -> throwError e
261 Left e -> throwError e