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.
This commit is contained in:
John MacFarlane 2020-02-21 08:06:19 -08:00
parent 984a82a9b8
commit 2c09b15b8d

View file

@ -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