addMaybeClippedJoin: instead of raising an exception when the join is totally clipped, just reduce the clip amount and continue
commite483f08db2e46867890a29e244ada3af84ef5abf
authorJonathan Daugherty <cygnus@foobox.com>
dateSat 3 Dec 2016, 17:50 (10 years ago)
parentcf3bd4c
src/Graphics/Vty/PictureToSpans.hs+1−1
@@ -311,7 +311,7 @@ addMaybeClippedJoin name skip remaining offset i0Dim i0 i1 size = do
311311 when (state^.remaining <= 0) $ fail $ name ++ " with remaining <= 0"
312312 case state^.skip of
313313 s -- TODO: check if clipped in other dim. if not use addUnclipped
314− | s > size -> fail $ name ++ " on fully clipped"
314+ | s > size -> put $ state & skip -~ size
315315 | s == 0 -> if state^.remaining > i0Dim
316316 then do
317317 addMaybeClipped i0