Fix multiple ellipses on cropped text spans.
commite072b19be10c601c7d092c79ae5b1dde88813007
authorJohn Pybus <john@jpnp.net>
dateThu 18 Aug 2011, 12:31 (15 years ago)
parentc0b4ce8
src/Graphics/Vty/Span.hs+1−1
@@ -283,7 +283,7 @@ snoc_text_span a text_str mrow_ops columns_to_skip y remaining_columns = do
283283 else if ( used_display_columns + char_display_width ) > remaining_columns
284284 then do
285285 Vector.unsafeWrite mspan_chars used_char_count '…'
286− return $! ( used_display_columns
286+ return $! ( used_display_columns + 1
287287 , display_columns_skipped
288288 , used_char_count + 1
289289 )