Merge pull request #177 from kuk0/takeEnd

fix takeEnd and dropEnd - issue #176
haskell · May 21, 2017 · c29d57c · c29d57c
2 parents 831626d + 01bcbbe
commit c29d57c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Data/Text.hs b/Data/Text.hs
@@ -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