Commit f64e6102 authored by Bodigrim's avatar Bodigrim
Browse files

Fix strict indices: take hay offset into account

parent 170d8fae
......@@ -79,8 +79,8 @@ indices (Text narr noff nlen)
= []
| A.unsafeIndex harr (i - 1) == z
= if A.equal narr noff harr (i - nlen) nlen
then i - nlen : loop (i + nlen)
else loop (i + skip + 1)
then i - nlen - hoff : loop (i + nlen)
else loop (i + skip + 1)
| i == hlen + hoff
= []
| mask .&. swizzle (A.unsafeIndex harr i) == 0
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment