refactoring with hlint.
commit41c0721b37ff34ab4fca59f3fb53c64c79b7b6b8
authorKazu Yamamoto <kazu@iij.ad.jp>
dateTue 5 Nov 2013, 15:50 (13 years ago)
parentea47650
warp/Network/Wai/Handler/Warp/RequestHeader.hs+1−1
@@ -125,7 +125,7 @@ parseRequestLine requestLine@(PS fptr off len) = withForeignPtr fptr $ \ptr -> d
125125parsePath :: ByteString -> ByteString
126126parsePath path
127127 | "http://" `S.isPrefixOf` path = ensureNonEmpty $ extractPath path
128− | otherwise = ensureNonEmpty $ path
128+ | otherwise = ensureNonEmpty path
129129 where
130130 extractPath = snd . S.breakByte 47 . S.drop 7 -- 47 is '/'.
131131 ensureNonEmpty "" = "/"
warp/Network/Wai/Handler/Warp/Response.hs+1−2
@@ -206,8 +206,7 @@ sendRsp conn ver s hs (RspBuilder b needsChunked) = do
206206 | needsChunked = header `mappend` chunkedTransferEncoding b
207207 `mappend` chunkedTransferTerminator
208208 | otherwise = header `mappend` b
209− flip toByteStringIO body $ \bs -> do
210− connSendAll conn bs
209+ flip toByteStringIO body $ \bs -> connSendAll conn bs
211210
212211----------------------------------------------------------------
213212