@@ -98,8 +98,10 @@ serveAsset' doRedirect base fallback p = do
9898 . setHeader "Accept-Ranges" "bytes"
9999 . setContentType (fileType defaultMimeTypes p)
100100 let size = fromIntegral $ fileSize stat
101− -- Check if this is a range request
102101 req <- getRequest
102+ -- Despite the name, this function actually does all of the work for
103+ -- responding to range requests. We only need to handle *none* range
104+ -- requests ourselves.
103105 wasRange <- checkRangeReq req finalFilename size
104106 unless wasRange $ do
105107 modifyResponse $ setResponseCode 200 . setContentLength size