diff options
| author | Nikolay Yakimov <root@livid.pp.ru> | 2020-05-25 15:11:36 +0300 |
|---|---|---|
| committer | Nikolay Yakimov <root@livid.pp.ru> | 2020-06-29 17:06:29 +0300 |
| commit | 34e54d30202e492fa6a4b1541fd8d094af8bc2a1 (patch) | |
| tree | bd9889df2e06a65fdbc559e395b4896298c618a3 /src/Text/Pandoc/Readers/Markdown.hs | |
| parent | f26923b9e493ecd2c4515d821da58e88fd2d946b (diff) | |
| download | pandoc-34e54d30202e492fa6a4b1541fd8d094af8bc2a1.tar.gz | |
Handle errors in yamlToMeta
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 77a371537..cf59ef288 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -67,14 +67,12 @@ yamlToMeta :: PandocMonad m -> m Meta yamlToMeta opts bstr = do let parser = do - meta <- yamlBsToMeta (fmap asBlocks parseBlocks) bstr + meta <- yamlBsToMeta (asBlocks <$> parseBlocks) bstr return $ runF meta defaultParserState parsed <- readWithM parser def{ stateOptions = opts } "" case parsed of Right result -> return result Left e -> throwError e - where - asBlocks :: Functor f => f (B.Many Block) -> f MetaValue asBlocks p = MetaBlocks . B.toList <$> p |