diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Typst.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Typst.hs b/src/Text/Pandoc/Readers/Typst.hs index 7a7ef1797..39db3fda8 100644 --- a/src/Text/Pandoc/Readers/Typst.hs +++ b/src/Text/Pandoc/Readers/Typst.hs @@ -578,9 +578,11 @@ parseTable mbident fields = do else map ( \case - Just x -> B.ColWidth (fromIntegral x / fromIntegral totwidth) + Just x -> + B.ColWidth (fromIntegral x / fromIntegral totwidth) Nothing -> - B.ColWidth (fromIntegral avgwidth / fromIntegral totwidth) + B.ColWidth + (fromIntegral avgwidth / fromIntegral totwidth) ) xs widths <- case columns of @@ -653,11 +655,9 @@ parseTable mbident fields = do [Elt (Identifier "grid.vline") _pos _fs] -> pure tableData [Elt (Identifier "grid.hline") _pos _fs] -> pure tableData [Elt (Identifier "table.header") _pos fs] -> - -- TODO make this a header getField "children" fs >>= foldM (toCell THeader) tableData . V.toList [Elt (Identifier "table.footer") _pos fs] -> - -- TODO make this a footer getField "children" fs >>= foldM (toCell TFooter) tableData . V.toList _ -> do |