Fix spacing issues.
This commit is contained in:
1 parent
3f06c7f0dd
commit
44d9b492f9
1 file changed
+2
-2
@@ -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
|
||||
|
||||
Reference in new issue
Block a user