fix takeEnd and dropEnd - issue #176
authorKubo Kovac <kuko@fb.com>
Wed, 3 May 2017 20:23:33 +0000 (21:23 +0100)
committerKubo Kovac <kuko@fb.com>
Wed, 3 May 2017 20:23:33 +0000 (21:23 +0100)
Data/Text.hs

index 6e2eb3b..6dd4c99 100644 (file)
@@ -1099,8 +1099,8 @@ takeEnd n t@(Text arr off len)
 iterNEnd :: Int -> Text -> Int
 iterNEnd n t@(Text _arr _off len) = loop (len-1) n
   where loop i !m
+          | m <= 0    = i+1
           | i <= 0    = 0
-          | m <= 1    = i
           | otherwise = loop (i+d) (m-1)
           where d = reverseIter_ t i