Make the example gzip prog use the max compression ratio

haskell · Dec 29, 2011 · 16a22ad · 16a22ad
1 parent dde5c74
commit 16a22ad
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/examples/gzip.hs b/examples/gzip.hs
@@ -3,4 +3,6 @@ module Main where
 import qualified Data.ByteString.Lazy as B
 import qualified Codec.Compression.GZip as GZip
 
-main = B.interact GZip.compress
+main = B.interact $ GZip.compressWith GZip.defaultCompressParams {
+                      GZip.compressLevel = GZip.BestCompression
+                    }