Fix a nasty space leak
--HG--
extra : convert_revision : 93e3bf048686f4ff223110e10cab3e32c51d4671
commit5a125ae8188b5cef1c73ac7cce0d3d635565e145
authorBryan O'Sullivan <bos@serpentine.com>
dateFri 13 Aug 2010, 23:18 (16 years ago)
parent2b507cd
Data/Text/Lazy/Search.hs+1−1
@@ -103,7 +103,7 @@ indices _ _ = []
103103-- the possibility that the caller might try to access one element
104104-- past the end.
105105index :: T.Text -> Text -> Int64 -> Word16
106−index (T.Text arr off len) xs i
106+index (T.Text arr off len) xs !i
107107 | j < len = A.unsafeIndex arr (off+j)
108108 | otherwise = case xs of
109109 Empty