Remove redundant clause from clipForCharWidth
commit25429683cda57f37329f4b99ddf60eb5ab2abdb3
authorEric Mertens <emertens@gmail.com>
dateTue 6 Sep 2016, 19:07 (10 years ago)
parent83ceb68
src/Graphics/Vty/Image/Internal.hs−1
@@ -46,7 +46,6 @@ clipText txt leftSkip rightClip =
4646 | w < cw = (n, w /= 0)
4747 | otherwise = clipForCharWidth (w - cw) (TL.tail t) (n + 1)
4848 where cw = safeWcwidth (TL.head t)
49− clipForCharWidth _ _ _ = error "clipForCharWidth applied to undefined"
5049 in txt''
5150
5251-- | This is the internal representation of Images. Use the constructors in "Graphics.Vty.Image" to