@@ -212,7 +212,9 @@ staticAppPieces ss rawPieces req sendResponse = liftIO $ do
212212 mimetype <- ssGetMimeType ss file
213213 let filesize = fileGetSize file
214214 let headers = ("Content-Type", mimetype)
215− : ("Content-Length", S8.pack $ show filesize)
215+ -- Let Warp provide the content-length, since it takes
216+ -- range requests into account
217+ -- : ("Content-Length", S8.pack $ show filesize)
216218 : ch
217219 sendResponse $ fileToResponse file H.status200 headers
218220