Muse reader: simplify tableParseCaption
commitc36c02e58d3262a117c00681d4a3525c96eaf383
authorAlexander Krotov <ilabdsf@gmail.com>
dateFri 19 Jan 2018, 11:12 (9 years ago)
parent19d2576
src/Text/Pandoc/Readers/Muse.hs+1−3
@@ -575,9 +575,7 @@ tableParseCaption :: PandocMonad m => MuseParser m MuseTableElement
575575tableParseCaption = try $ do
576576 many spaceChar
577577 string "|+"
578− contents <- trimInlinesF . mconcat <$> many1Till inline (lookAhead $ string "+|")
579− string "+|"
580− return $ MuseCaption contents
578+ MuseCaption <$> (trimInlinesF . mconcat <$> many1Till inline (string "+|"))
581579
582580--
583581-- inline parsers