@@ -1183,7 +1183,7 @@ alignType strLst len =
1183 let nonempties = filter (not . T.null) $ map trimr strLst
1183 let nonempties = filter (not . T.null) $ map trimr strLst
1184 (leftSpace, rightSpace) =
1184 (leftSpace, rightSpace) =
1185 case sortOn T.length nonempties of
1185 case sortOn T.length nonempties of
1186− (x:_) -> (T.head x `elem` [' ', 't'], T.length x < len)
1186+ (x:_) -> (T.head x `elem` [' ', '\t'], T.length x < len)
1187 [] -> (False, False)
1187 [] -> (False, False)
1188 in case (leftSpace, rightSpace) of
1188 in case (leftSpace, rightSpace) of
1189 (True, False) -> AlignRight
1189 (True, False) -> AlignRight