diff options
| author | John MacFarlane <[email protected]> | 2024-03-22 16:53:50 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2024-03-22 16:53:50 -0700 |
| commit | 354e0fd349031d4935d0dc9d2a541a2141c38004 (patch) | |
| tree | 6be4776267b0fab1258a9d13c2eccafd97bc5da6 | |
| parent | 0b28b55902f5828eee5263a300381a4a2f513732 (diff) | |
Minor comment and indentation fixes.
| -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 |