Fixed breakage on GHC 6.10.1

[Lucu.git] / ImplantFile.hs

diff --git a/ImplantFile.hs b/ImplantFile.hs
index 2fbab0052a62b746b6c64d1e6572b9eb6e56e0f8..ae749b9886c5a7422cd25bceb2137a83debb796f 100644 (file)
--- 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