diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-02-21 08:06:19 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-02-21 08:06:19 -0800 |
| commit | 2c09b15b8dc421c444f732a7b1fbe9f67f80de45 (patch) | |
| tree | 69a5705aa4c6983b73f964a20b22c1ab5afaae20 /src | |
| parent | 984a82a9b81ef07bd29bb14701503a8a33ff2c81 (diff) | |
| download | pandoc-2c09b15b8dc421c444f732a7b1fbe9f67f80de45.tar.gz | |
Fix table alignment when heading begins with t.
Due to a typo (`t` instead of `\t`) we were center
aligning column headings that begin with a lowercase t!
Closes #6153.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 70fba0165..1b8cf652b 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -1183,7 +1183,7 @@ alignType strLst len = let nonempties = filter (not . T.null) $ map trimr strLst (leftSpace, rightSpace) = case sortOn T.length nonempties of - (x:_) -> (T.head x `elem` [' ', 't'], T.length x < len) + (x:_) -> (T.head x `elem` [' ', '\t'], T.length x < len) [] -> (False, False) in case (leftSpace, rightSpace) of (True, False) -> AlignRight |