@@ -80,7 +80,7 @@ indices _needle@(Text narr noff nlen) _haystack@(Text harr hoff hlen)
80 delta | nextInPattern = nlen + 1
80 delta | nextInPattern = nlen + 1
81 | c == z = skip + 1
81 | c == z = skip + 1
82 | otherwise = 1
82 | otherwise = 1
83− nextInPattern = mask .&. swizzle (hindex' (i+nlen)) == 0
83+ where nextInPattern = mask .&. swizzle (hindex' (i+nlen)) == 0
84 !(mask :* skip) = buildTable 0 0 (nlen-2)
84 !(mask :* skip) = buildTable 0 0 (nlen-2)
85 scanOne c = loop 0
85 scanOne c = loop 0
86 where loop !i | i >= hlen = []
86 where loop !i | i >= hlen = []