8efc677 · typeable/pandoc

642museToPandocTable :: MuseTable -> Blocks

643museToPandocTable (MuseTable caption headers body footers) =

644 B.table caption attrs headRow (rows ++ body ++ footers)

645− where attrs = const (AlignDefault, 0.0) <$> transpose (headers ++ body ++ footers)

645+ where attrs = (AlignDefault, 0.0) <$ transpose (headers ++ body ++ footers)

646 (headRow, rows) = fromMaybe ([], []) $ uncons headers

647

648museAppendElement :: MuseTableElement

690 indices <- museGridTableHeader

691 fmap rowsToTable . sequence <$> many1 (museGridTableRow indent indices)

692 where rowsToTable rows = B.table mempty attrs [] rows

693− where attrs = const (AlignDefault, 0.0) <$> transpose rows

693+ where attrs = (AlignDefault, 0.0) <$ transpose rows

694

695-- | Parse a table.

696table :: PandocMonad m => MuseParser m (F Blocks)