diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-19 11:12:19 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-19 11:12:19 +0300 |
| commit | c36c02e58d3262a117c00681d4a3525c96eaf383 (patch) | |
| tree | bd9f0b2d8db978ba7efb6949e2cfa936cd101d24 /src/Text/Pandoc | |
| parent | 19d257622356e603d56f3d4350b586420ed63dcb (diff) | |
Muse reader: simplify tableParseCaption
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 7067d8abc..8455f983c 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -575,9 +575,7 @@ tableParseCaption :: PandocMonad m => MuseParser m MuseTableElement tableParseCaption = try $ do many spaceChar string "|+" - contents <- trimInlinesF . mconcat <$> many1Till inline (lookAhead $ string "+|") - string "+|" - return $ MuseCaption contents + MuseCaption <$> (trimInlinesF . mconcat <$> many1Till inline (string "+|")) -- -- inline parsers |