9baf973 · typeable/wai

warp/Network/Wai/Handler/Warp/ResponseHeader.hs+1−1

@@ -29,7 +29,7 @@ composeHeader !httpversion !status !responseHeaders = create len $ \ptr -> do

29

30{-# INLINE copy #-}

31copy :: 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

33 memcpy ptr (p `plusPtr` o) (fromIntegral l)

34 return $! ptr `plusPtr` l

35

warp/Network/Wai/Handler/Warp/Run.hs+1−1

@@ -212,7 +212,7 @@ serveConnection :: T.Handle

212 -> InternalInfo

213 -> Application -> Connection -> SockAddr-> IO ()

214serveConnection timeoutHandle settings ii app conn remoteHost' =

215− (serveConnection'' $ connSource conn th) `onException` send500

215+ serveConnection'' (connSource conn th) `onException` send500

216 where

217 th = threadHandle ii

218

warp/Network/Wai/Handler/Warp/Timeout.hs−1

@@ -1,6 +1,5 @@

1{-# LANGUAGE CPP #-}

2{-# LANGUAGE BangPatterns #-}

3−{-# LANGUAGE DeriveDataTypeable #-}

4{-# LANGUAGE UnboxedTuples, MagicHash #-}

3{-# LANGUAGE UnboxedTuples, MagicHash #-}

5

4

6-- |

5-- |