X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=ImplantFile.hs;h=ae749b9886c5a7422cd25bceb2137a83debb796f;hb=e2a6ee839c0ca27b25b32656a5c080e4b464e7c9;hp=2fbab0052a62b746b6c64d1e6572b9eb6e56e0f8;hpb=96eb1c302d693026c6c8076c373638b711e24c6c;p=Lucu.git

diff --git a/ImplantFile.hs b/ImplantFile.hs
index 2fbab00..ae749b9 100644
--- a/ImplantFile.hs
+++ b/ImplantFile.hs
@@ -106,7 +106,8 @@ generateHaskellSource opts srcFile
          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