@@ -642,7 +642,7 @@ data MuseTableElement = MuseHeaderRow [Blocks]
642642museToPandocTable :: MuseTable -> Blocks
643643museToPandocTable (MuseTable caption headers body footers) =
644644 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)
646646 (headRow, rows) = fromMaybe ([], []) $ uncons headers
647647
648648museAppendElement :: MuseTableElement
@@ -690,7 +690,7 @@ museGridTable = try $ do
690690 indices <- museGridTableHeader
691691 fmap rowsToTable . sequence <$> many1 (museGridTableRow indent indices)
692692 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
694694
695695-- | Parse a table.
696696table :: PandocMonad m => MuseParser m (F Blocks)