git.iko.soy/typeable/wai
on master help sign in
use breakByte instead of break
89fdbeaMatt Brown
Network/Wai/Handler/Warp.hs+1−1
compare with master
unifiedsplit
@@ -252,7 +252,7 @@ parseFirst s = do
252 let (hfirst, hsecond) = B.splitAt 5 http'
252 let (hfirst, hsecond) = B.splitAt 5 http'
253 if (hfirst == "HTTP/")
253 if (hfirst == "HTTP/")
254 then
254 then
255− let (rpath, qstring) = B.break (== '?') query
255+ let (rpath, qstring) = S.breakByte 63 query -- '?'
256 in return (method, rpath, qstring, hsecond)
256 in return (method, rpath, qstring, hsecond)
257 else E.throwError NonHttp
257 else E.throwError NonHttp
258{-# INLINE parseFirst #-} -- FIXME is this inline necessary? the function is only called from one place and not exported
258{-# INLINE parseFirst #-} -- FIXME is this inline necessary? the function is only called from one place and not exported