d1e976d · typeable/wai

git.iko.soy/typeable/wai

fixing warnings.

commitd1e976de2ebad49b46eeea9cfc10feb7a19be8fc authorKazu Yamamoto <kazu@iij.ad.jp> dateSun 30 Mar 2014, 14:53 (13 years ago) parentae2b6b2

2 files changed+4−3

unifiedsplit

warp/Network/Wai/Handler/Warp/Request.hs+2−2

@@ -216,8 +216,8 @@ push (THStatus len lines prepend) bs'

216216 status = THStatus len' lines' id

217217 in if start < bsLen then

218218 -- more bytes in this chunk, push again

219− let bs' = SU.unsafeDrop start bs

220− in push status bs'

219+ let bs'' = SU.unsafeDrop start bs

220+ in push status bs''

221221 else

222222 -- no more bytes in this chunk, ask for more

223223 await >>= maybe close (push status)

warp/Network/Wai/Handler/Warp/Settings.hs+2−1

@@ -1,4 +1,5 @@

11{-# LANGUAGE OverloadedStrings, ScopedTypeVariables, ViewPatterns #-}

2+{-# LANGUAGE PatternGuards #-}

34module Network.Wai.Handler.Warp.Settings where

@@ -16,7 +17,7 @@ import Network.Socket (SockAddr)

1617import Network.Wai

1718import Network.Wai.Handler.Warp.Timeout

1819import Network.Wai.Handler.Warp.Types

19−import System.IO (hPrint, stderr)

20+import System.IO (stderr)

2021import System.IO.Error (ioeGetErrorType)

2122

2223-- | Various Warp server settings. This is purposely kept as an abstract data