Markdown Reader: Require nonempty value in mmd title block
`many1Till` will gobble up newline, and then whole following line will
match, so I had to use guard here.
commit5f7639a0d6e74527930b2c8060898df5177ce82e
authorNikolay Yakimov <root@livid.pp.ru>
dateSat 28 Mar 2015, 07:07 (12 years ago)
parent7091002
src/Text/Pandoc/Readers/Markdown.hs+1
@@ -329,6 +329,7 @@ kvPair = try $ do
329329 skipMany1 spaceNoNewline
330330 val <- manyTill anyChar
331331 (try $ newline >> lookAhead (blankline <|> nonspaceChar))
332+ guard $ not . null . trim $ val
332333 let key' = concat $ words $ map toLower key
333334 let val' = MetaBlocks $ B.toList $ B.plain $ B.text $ trim val
334335 return (key',val')