lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-25 09:47:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

Muse reader: simplify tableCell implementation (#3846)

Browse Source
This commit is contained in:
Alexander
2017-08-09 09:09:05 -07:00
committed by John MacFarlane
parent 400a4ef5f3
commit cfa597fc2a
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/Muse.hs
+1 -3
View File
@@ -391,9 +391,7 @@ museAppendElement tbl element =
return tbl{ museTableCaption = inlines' }
tableCell :: PandocMonad m => MuseParser m (F Blocks)
tableCell = try $ do
content <- trimInlinesF . mconcat <$> manyTill inline (lookAhead cellEnd)
return $ B.plain <$> content
tableCell = try $ liftM B.plain . trimInlinesF . mconcat <$> manyTill inline (lookAhead cellEnd)
where cellEnd = try $ void (many1 spaceChar >> char '|') <|> void newline <|> eof
tableElements :: PandocMonad m => MuseParser m [MuseTableElement]