From 34e54d30202e492fa6a4b1541fd8d094af8bc2a1 Mon Sep 17 00:00:00 2001
From: Nikolay Yakimov <root@livid.pp.ru>
Date: Mon, 25 May 2020 15:11:36 +0300
Subject: Handle errors in yamlToMeta

---
 src/Text/Pandoc/Readers/Markdown.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/Text/Pandoc/Readers')

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
-- 
cgit v1.2.3