on master help sign in
Fix warnings in Handle-based file streaming
commitece61c85d8a65b7921786799360de52f2e4b609f authorAndrew Pritchard <awpr@google.com> dateSun 30 Aug 2015, 11:05 (11 years ago) parent52ca250
1 file changed+2−2
warp/Network/Wai/Handler/Warp/HTTP2/Sender.hs+2−2
warp/Network/Wai/Handler/Warp/HTTP2/Sender.hs+2−2
@@ -27,7 +27,6 @@ import Network.Wai.Handler.Warp.HTTP2.HPACK
2727import Network.Wai.Handler.Warp.HTTP2.Types
2828import Network.Wai.Handler.Warp.IORef
2929import qualified Network.Wai.Handler.Warp.Settings as S
30−import qualified Network.Wai.Handler.Warp.Timeout as T
3130import Network.Wai.Handler.Warp.Types
3231import qualified System.PosixCompat.Files as P
3332
@@ -36,6 +35,7 @@ import qualified System.IO as IO
3635#else
3736import Network.Wai.Handler.Warp.FdCache (getFd)
3837import Network.Wai.Handler.Warp.SendFile (positionRead)
38+import qualified Network.Wai.Handler.Warp.Timeout as T
3939import System.Posix.IO (openFd, OpenFileFlags(..), defaultFileFlags, OpenMode(ReadOnly), closeFd)
4040import System.Posix.Types (Fd)
4141#endif
@@ -316,7 +316,7 @@ runStreamFile :: InternalInfo -> Buffer -> BufSize -> FilePath -> Maybe FilePart
316316readOpenFile :: OpenFile -> Buffer -> BufSize -> Integer -> IO Int
317317
318318#ifdef WINDOWS
319−runStreamFile ii buf room path mpart = do
319+runStreamFile _ buf room path mpart = do
320320 (start, bytes) <- fileStartEnd path mpart
321321 -- fixme: how to close Handle? GC does it at this moment.
322322 h <- IO.openBinaryFile path IO.ReadMode