From 354e0fd349031d4935d0dc9d2a541a2141c38004 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 22 Mar 2024 16:53:50 -0700 Subject: Minor comment and indentation fixes. --- src/Text/Pandoc/Readers/Typst.hs | 8 ++++---- 1 file 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 -- cgit v1.2.3