@@ -34,14 +34,6 @@ wctlwidth = TL.foldl' (\l c -> wcwidth c + l) 0
34"wcswidth/lazy-unpack" forall x. wcswidth (TL.unpack x) = wctlwidth x
34"wcswidth/lazy-unpack" forall x. wcswidth (TL.unpack x) = wctlwidth x
37−-- XXX: Characters with unknown widths occupy 1 column?
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.
45-- | Returns the display width of a character. Assumes all characters
37-- | Returns the display width of a character. Assumes all characters
46-- with unknown widths are 0 width.
38-- with unknown widths are 0 width.
47safeWcwidth :: Char -> Int
39safeWcwidth :: Char -> Int