@@ -211,7 +211,7 @@ parseRequest' port (firstLine:otherLines) remoteHost' = do
211 if S.null rpath'
211 if S.null rpath'
212 then ("","/")
212 then ("","/")
213 else if "http://" `S.isPrefixOf` rpath'
213 else if "http://" `S.isPrefixOf` rpath'
214− then S.break (47==) $ S.drop 7 rpath' -- '/'
214+ then S.breakByte 47 $ S.drop 7 rpath' -- '/'
215 else ("", rpath')
215 else ("", rpath')
216 let heads = map parseHeaderNoAttr otherLines
216 let heads = map parseHeaderNoAttr otherLines
217 let host = fromMaybe host' $ lookup "host" heads
217 let host = fromMaybe host' $ lookup "host" heads