@@ -48,7 +48,6 @@ module Network.Wai.Parse
51−import qualified Data.ByteString.Search as Search
52import qualified Data.ByteString as S
51import qualified Data.ByteString as S
53import qualified Data.ByteString.Lazy as L
52import qualified Data.ByteString.Lazy as L
54import qualified Data.ByteString.Char8 as S8
53import qualified Data.ByteString.Char8 as S8
@@ -577,7 +576,7 @@ data Bound = FoundBound S.ByteString S.ByteString
577 deriving (Eq, Show)
576 deriving (Eq, Show)
579findBound :: S.ByteString -> S.ByteString -> Bound
578findBound :: S.ByteString -> S.ByteString -> Bound
580−findBound b bs = handleBreak $ Search.breakOn b bs
579+findBound b bs = handleBreak $ S.breakSubstring b bs
582 handleBreak (h, t)
581 handleBreak (h, t)
583 | S.null t = go [lowBound..S.length bs - 1]
582 | S.null t = go [lowBound..S.length bs - 1]