git.iko.soy/typeable/wai
on master help sign in
B.words => S.split 32
commit9b8c2152d2332052580c27e5dbd298fe5e6cbe02 authorMatt Brown <matt@softmechanics.net> dateMon 3 Jan 2011, 18:13 (16 years ago) parent9c07b01
1 file changed+1−1
compare with master
unifiedsplit
Network/Wai/Handler/Warp.hs+1−1
Network/Wai/Handler/Warp.hs+1−1
@@ -184,7 +184,7 @@ parseRequest' port lines' remoteHost' = do
184184parseFirst :: ByteString
185185 -> E.Iteratee S.ByteString IO (ByteString, ByteString, ByteString, HttpVersion)
186186parseFirst s = do
187− let pieces = B.words s
187+ let pieces = S.split 32 s -- ' '
188188 (method, query, http') <-
189189 case pieces of
190190 [x, y, z] -> return (x, y, z)