hlint suggestions.
commit9baf973f9c2bb08d58057ea43e19d04a9b7ba8d8
authorKazu Yamamoto <kazu@iij.ad.jp>
dateTue 29 Oct 2013, 13:44 (13 years ago)
parent4883f84
warp/Network/Wai/Handler/Warp/ResponseHeader.hs+1−1
@@ -29,7 +29,7 @@ composeHeader !httpversion !status !responseHeaders = create len $ \ptr -> do
2929
3030{-# INLINE copy #-}
3131copy :: Ptr Word8 -> ByteString -> IO (Ptr Word8)
32−copy !ptr !(PS fp o l) = withForeignPtr fp $ \p -> do
32+copy !ptr (PS fp o l) = withForeignPtr fp $ \p -> do
3333 memcpy ptr (p `plusPtr` o) (fromIntegral l)
3434 return $! ptr `plusPtr` l
3535
warp/Network/Wai/Handler/Warp/Run.hs+1−1
@@ -212,7 +212,7 @@ serveConnection :: T.Handle
212212 -> InternalInfo
213213 -> Application -> Connection -> SockAddr-> IO ()
214214serveConnection timeoutHandle settings ii app conn remoteHost' =
215− (serveConnection'' $ connSource conn th) `onException` send500
215+ serveConnection'' (connSource conn th) `onException` send500
216216 where
217217 th = threadHandle ii
218218
warp/Network/Wai/Handler/Warp/Timeout.hs−1
@@ -1,6 +1,5 @@
11{-# LANGUAGE CPP #-}
22{-# LANGUAGE BangPatterns #-}
3−{-# LANGUAGE DeriveDataTypeable #-}
43{-# LANGUAGE UnboxedTuples, MagicHash #-}
54
65-- |