@@ -25,7 +25,6 @@ import qualified Network.Wai.Handler.Warp.Settings as S
25import qualified Network.Wai.Handler.Warp.Timeout as T
25import qualified Network.Wai.Handler.Warp.Timeout as T
26import Network.Wai.Handler.Warp.Types
26import Network.Wai.Handler.Warp.Types
27import Network.Wai.Internal (Response(..))
27import Network.Wai.Internal (Response(..))
28−import qualified System.PosixCompat.Files as P
30#ifdef WINDOWS
29#ifdef WINDOWS
31import qualified System.IO as IO
30import qualified System.IO as IO
@@ -277,11 +276,9 @@ fillResponseBodyGetNext Connection{connWriteBuffer,connBufferSize}
277fillResponseBodyGetNext _ _ _ _ _ = error "fillResponseBodyGetNext"
276fillResponseBodyGetNext _ _ _ _ _ = error "fillResponseBodyGetNext"
279fileStartEnd :: FilePath -> Maybe FilePart -> IO (Integer, Integer)
278fileStartEnd :: FilePath -> Maybe FilePart -> IO (Integer, Integer)
280−fileStartEnd path Nothing = do
281− end <- fromIntegral . P.fileSize <$> P.getFileStatus path
283fileStartEnd _ (Just part) =
279fileStartEnd _ (Just part) =
284 return (filePartOffset part, filePartByteCount part)
280 return (filePartOffset part, filePartByteCount part)
281+fileStartEnd _ _ = error "fileStartEnd"
286----------------------------------------------------------------
283----------------------------------------------------------------