@@ -64,7 +64,7 @@ indices _needle@(Text narr noff nlen) _haystack@(Text harr hoff hlen)
64 swizzle k = 1 `shiftL` (fromIntegral k .&. 0x3f)
64 swizzle k = 1 `shiftL` (fromIntegral k .&. 0x3f)
66 | i > ldiff = []
66 | i > ldiff = []
67− | c == z && candidateMatch 0 = i : scan (i + nlast)
67+ | c == z && candidateMatch 0 = i : scan (i + nlen)
68 | otherwise = scan (i + delta)
68 | otherwise = scan (i + delta)
69 where c = hindex (i + nlast)
69 where c = hindex (i + nlast)
70 candidateMatch !j
70 candidateMatch !j