From d368536a4ebfc542a58bd9bec6718590711c6efb Mon Sep 17 00:00:00 2001 From: despresc Date: Sun, 5 Apr 2020 19:53:35 -0400 Subject: Adapt to the removal of the RowSpan, ColSpan, RowHeadColumns accessors --- src/Text/Pandoc/Readers/RST.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index 0dadd5120..0460c43f4 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -794,7 +794,7 @@ tableDirective top fields body = do where -- only valid on the very first row of a table section rowLength (Row _ rb) = sum $ cellLength <$> rb - cellLength (Cell _ _ _ w _) = max 1 (getColSpan w) + cellLength (Cell _ _ _ (ColSpan w) _) = max 1 w strictPos w | w > 0 = ColWidth w | otherwise = ColWidthDefault -- cgit v1.2.3