@@ -184,7 +184,7 @@ parseRequest' port lines' remoteHost' = do
184parseFirst :: ByteString
184parseFirst :: ByteString
185 -> E.Iteratee S.ByteString IO (ByteString, ByteString, ByteString, HttpVersion)
185 -> E.Iteratee S.ByteString IO (ByteString, ByteString, ByteString, HttpVersion)
186parseFirst s = do
186parseFirst s = do
187− let pieces = B.words s
187+ let pieces = S.split 32 s -- ' '
188 (method, query, http') <-
188 (method, query, http') <-
189 case pieces of
189 case pieces of
190 [x, y, z] -> return (x, y, z)
190 [x, y, z] -> return (x, y, z)