@@ -298,7 +298,7 @@ kvPair allowEmpty = try $ do
298 (try $ newline >> lookAhead (blankline <|> nonspaceChar))
298 (try $ newline >> lookAhead (blankline <|> nonspaceChar))
299 guard $ allowEmpty || not (T.null val)
299 guard $ allowEmpty || not (T.null val)
300 let key' = T.concat $ T.words $ T.toLower key
300 let key' = T.concat $ T.words $ T.toLower key
301− let val' = MetaBlocks $ B.toList $ B.plain $ B.text val
301+ let val' = MetaInlines $ B.toList $ B.text val
302 return (key',val')
302 return (key',val')
304parseMarkdown :: PandocMonad m => MarkdownParser m Pandoc
304parseMarkdown :: PandocMonad m => MarkdownParser m Pandoc