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

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