Fix spacing issues.

2026-08-24 01:06:30 +00:00 · 2023-06-24 11:25:38 -07:00
parent 3f06c7f0dd
commit 44d9b492f9
1 changed files with 2 additions and 2 deletions
@@ -304,7 +304,7 @@ parseBlock (Elem e) = do
                      let parseRows elementWithRows =
                            map parseElement $ filterChildren isRow elementWithRows

-                      -- list of list of body cell elements 
+                      -- list of list of body cell elements
                      let multipleBodyRowElements =
                            map parseRows $ filterChildren (named "tbody") e'

@@ -313,7 +313,7 @@ parseBlock (Elem e) = do

                      -- list of foot cell elements
                      let footRowElements = maybe [] parseRows (filterChild (named "tfoot") e')
-                      
+
                      let toAlignment c = case findAttr (unqual "align") c of
                                                Just "left"   -> AlignLeft
                                                Just "right"  -> AlignRight