cfa597f · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Muse reader: simplify tableCell implementation (#3846)

cfa597fAlexander9 years ago

src/Text/Pandoc/Readers/Muse.hs+1−3

@@ -391,9 +391,7 @@ museAppendElement tbl element =

391 return tbl{ museTableCaption = inlines' }

392

393tableCell :: PandocMonad m => MuseParser m (F Blocks)

394−tableCell = try $ do

395− content <- trimInlinesF . mconcat <$> manyTill inline (lookAhead cellEnd)

394+tableCell = try $ liftM B.plain . trimInlinesF . mconcat <$> manyTill inline (lookAhead cellEnd)

396− return $ B.plain <$> content

397 where cellEnd = try $ void (many1 spaceChar >> char '|') <|> void newline <|> eof

395 where cellEnd = try $ void (many1 spaceChar >> char '|') <|> void newline <|> eof

398

396

399tableElements :: PandocMonad m => MuseParser m [MuseTableElement]

397tableElements :: PandocMonad m => MuseParser m [MuseTableElement]