@@ -95,8 +95,8 @@ serveAsset' doRedirect base fallback p = do
9595 let finalFilename = base </> p </> "encodings" </> T.unpack (decodeUtf8 e)
9696 stat <- liftIO $ getFileStatus finalFilename
9797 modifyResponse $ setHeader "Last-Modified" "Thu, 1 Jan 1970 00:00:00 GMT"
98− modifyResponse $ setHeader "Accept-Ranges" "bytes"
99− modifyResponse $ setContentType (fileType defaultMimeTypes p)
98+ . setHeader "Accept-Ranges" "bytes"
99+ . setContentType (fileType defaultMimeTypes p)
100100 let size = fromIntegral $ fileSize stat
101101 -- Check if this is a range request
102102 req <- getRequest