output <- openOutput opts
eTag <- getETag opts input
- let gzippedData = compressWith BestCompression input
+ let compParams = defaultCompressParams { compressLevel = BestCompression }
+ gzippedData = compressWith compParams input
originalLen = L.length input
gzippedLen = L.length gzippedData
useGZip = originalLen > gzippedLen