@@ -195,11 +195,14 @@ dateLine = try $ do
195 trimInlinesF . mconcat <$> manyTill inline newline
195 trimInlinesF . mconcat <$> manyTill inline newline
197titleBlock :: MarkdownParser (F Inlines, F [Inlines], F Inlines)
197titleBlock :: MarkdownParser (F Inlines, F [Inlines], F Inlines)
198−titleBlock = pandocTitleBlock <|> mmdTitleBlock
198+titleBlock = pandocTitleBlock
200+ <|> return (mempty, return [], mempty)
200pandocTitleBlock :: MarkdownParser (F Inlines, F [Inlines], F Inlines)
202pandocTitleBlock :: MarkdownParser (F Inlines, F [Inlines], F Inlines)
201pandocTitleBlock = try $ do
203pandocTitleBlock = try $ do
202 guardEnabled Ext_pandoc_title_block
204 guardEnabled Ext_pandoc_title_block
205+ lookAhead (char '%')
203 title <- option mempty titleLine
206 title <- option mempty titleLine
204 author <- option (return []) authorsLine
207 author <- option (return []) authorsLine
205 date <- option mempty dateLine
208 date <- option mempty dateLine