@@ -34,14 +34,6 @@ wctlwidth = TL.foldl' (\l c -> wcwidth c + l) 0
3434"wcswidth/lazy-unpack" forall x. wcswidth (TL.unpack x) = wctlwidth x
3535 #-}
3636
37−-- XXX: Characters with unknown widths occupy 1 column?
38−--
39−-- Not sure if this is actually correct. I presume there is a
40−-- replacement character that is output by the terminal instead of the
41−-- character and this replacement character is 1 column wide. If this is
42−-- not true for all terminals then a per-terminal replacement character
43−-- width needs to be implemented.
44−
4537-- | Returns the display width of a character. Assumes all characters
4638-- with unknown widths are 0 width.
4739safeWcwidth :: Char -> Int