@@ -48,7 +48,6 @@ module Network.Wai.Parse
4848#endif
4949 ) where
5050
51−import qualified Data.ByteString.Search as Search
5251import qualified Data.ByteString as S
5352import qualified Data.ByteString.Lazy as L
5453import qualified Data.ByteString.Char8 as S8
@@ -577,7 +576,7 @@ data Bound = FoundBound S.ByteString S.ByteString
577576 deriving (Eq, Show)
578577
579578findBound :: S.ByteString -> S.ByteString -> Bound
580−findBound b bs = handleBreak $ Search.breakOn b bs
579+findBound b bs = handleBreak $ S.breakSubstring b bs
581580 where
582581 handleBreak (h, t)
583582 | S.null t = go [lowBound..S.length bs - 1]