diff options
| author | John MacFarlane <[email protected]> | 2023-06-24 11:25:38 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2023-06-24 11:25:38 -0700 |
| commit | 44d9b492f9fa2f6fae75dfb6230c299a00a075d6 (patch) | |
| tree | ffea353b16c8228589475c0ab2bddf8a5fafb437 /src/Text | |
| parent | 3f06c7f0ddfb2562570eb1b9ad27cdbb16f3a931 (diff) | |
Fix spacing issues.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/JATS.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/JATS.hs b/src/Text/Pandoc/Readers/JATS.hs index 90887ed04..538fb8264 100644 --- a/src/Text/Pandoc/Readers/JATS.hs +++ b/src/Text/Pandoc/Readers/JATS.hs @@ -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 |