@@ -25,7 +25,6 @@ import qualified Network.Wai.Handler.Warp.Settings as S
2525import qualified Network.Wai.Handler.Warp.Timeout as T
2626import Network.Wai.Handler.Warp.Types
2727import Network.Wai.Internal (Response(..))
28−import qualified System.PosixCompat.Files as P
2928
3029#ifdef WINDOWS
3130import qualified System.IO as IO
@@ -277,11 +276,9 @@ fillResponseBodyGetNext Connection{connWriteBuffer,connBufferSize}
277276fillResponseBodyGetNext _ _ _ _ _ = error "fillResponseBodyGetNext"
278277
279278fileStartEnd :: FilePath -> Maybe FilePart -> IO (Integer, Integer)
280−fileStartEnd path Nothing = do
281− end <- fromIntegral . P.fileSize <$> P.getFileStatus path
282− return (0, end)
283279fileStartEnd _ (Just part) =
284280 return (filePartOffset part, filePartByteCount part)
281+fileStartEnd _ _ = error "fileStartEnd"
285282
286283----------------------------------------------------------------
287284