Eliminate a useless fromIntegral.
commitaac6b06bea985599372d4fca67be0caf69276fd4
authorBryan O'Sullivan <bos@serpentine.com>
dateTue 4 Oct 2011, 07:11 (15 years ago)
parent73d7013
Data/Text/Lazy/Search.hs+1−1
@@ -80,7 +80,7 @@ indices needle@(Chunk n ns) _haystack@(Chunk k ks)
8080 Chunk y ys -> buildTable y ys g 0 msk skp
8181 | otherwise = go (g+1) (i+1) (msk .|. swizzle c) skp'
8282 where c = A.unsafeIndex xarr (xoff+i)
83− skp' | c == z = nlen - fromIntegral g - 2
83+ skp' | c == z = nlen - g - 2
8484 | otherwise = skp
8585 xlast = xlen - 1
8686 -- | Check whether an attempt to index into the haystack at the