on master help sign in
Eliminate a useless fromIntegral.
aac6b06Bryan O'Sullivan
Data/Text/Lazy/Search.hs+1−1
@@ -80,7 +80,7 @@ indices needle@(Chunk n ns) _haystack@(Chunk k ks)
80 Chunk y ys -> buildTable y ys g 0 msk skp
80 Chunk y ys -> buildTable y ys g 0 msk skp
81 | otherwise = go (g+1) (i+1) (msk .|. swizzle c) skp'
81 | otherwise = go (g+1) (i+1) (msk .|. swizzle c) skp'
82 where c = A.unsafeIndex xarr (xoff+i)
82 where c = A.unsafeIndex xarr (xoff+i)
83− skp' | c == z = nlen - fromIntegral g - 2
83+ skp' | c == z = nlen - g - 2
84 | otherwise = skp
84 | otherwise = skp
85 xlast = xlen - 1
85 xlast = xlen - 1
86 -- | Check whether an attempt to index into the haystack at the
86 -- | Check whether an attempt to index into the haystack at the