Muse reader: simplify tableCell implementation (#3846)
commitcfa597fc2ac2a6dceb0b3387a2ee885ec75bc7d1
authorAlexander <ilabdsf@gmail.com>
dateWed 9 Aug 2017, 19:09 (9 years ago)
parent400a4ef
src/Text/Pandoc/Readers/Muse.hs+1−3
@@ -391,9 +391,7 @@ museAppendElement tbl element =
391391 return tbl{ museTableCaption = inlines' }
392392
393393tableCell :: PandocMonad m => MuseParser m (F Blocks)
394−tableCell = try $ do
395− content <- trimInlinesF . mconcat <$> manyTill inline (lookAhead cellEnd)
396− return $ B.plain <$> content
394+tableCell = try $ liftM B.plain . trimInlinesF . mconcat <$> manyTill inline (lookAhead cellEnd)
397395 where cellEnd = try $ void (many1 spaceChar >> char '|') <|> void newline <|> eof
398396
399397tableElements :: PandocMonad m => MuseParser m [MuseTableElement]