Remove unused variable
--HG--
extra : convert_revision : 0e72a2cf53ca6f914cc16534c9909506bfeb7d5a
commitac04f3e01f20c5c0583bd8c198c7232ba8dcbae3
authorBryan O'Sullivan <bos@serpentine.com>
dateFri 6 Mar 2009, 07:11 (18 years ago)
parent9fecd2a
Data/Text.hs+1−2
@@ -596,8 +596,7 @@ drop n t@(Text arr off len)
596596 | n <= 0 = t
597597 | n >= len = empty
598598 | otherwise = loop 0 0
599− where end = off + len
600− loop !i !cnt
599+ where loop !i !cnt
601600 | i >= len || cnt >= n = Text arr (off+i) (len-i)
602601 | otherwise = loop (i+d) (cnt+1)
603602 where d = iter_ t i