git.iko.soy/typeable/wai
on master help sign in
negative bytestring indices are bad; put a floor of 0 under them to preserve the original behaviour
cc4fa1bjay groven
wai-extra/Network/Wai/Parse.hs+3−1
compare with master
unifiedsplit
@@ -284,9 +284,11 @@ findBound :: S.ByteString -> S.ByteString -> Bound
284findBound b bs = handleBreak $ Search.breakOn b bs
284findBound b bs = handleBreak $ Search.breakOn b bs
285 where
285 where
286 handleBreak (h, t)
286 handleBreak (h, t)
287− | S.null t = go [S.length bs - S.length b..S.length bs - 1]
287+ | S.null t = go [lowBound..S.length bs - 1]
288 | otherwise = FoundBound h $ S.drop (S.length b) t
288 | otherwise = FoundBound h $ S.drop (S.length b) t
289
289
290+ lowBound = max 0 $ S.length bs - S.length b
291+
290 go [] = NoBound
292 go [] = NoBound
291 go (i:is)
293 go (i:is)
292 | mismatch [0..S.length b - 1] [i..S.length bs - 1] = go is
294 | mismatch [0..S.length b - 1] [i..S.length bs - 1] = go is