# HG changeset patch
# User unc0rr
# Date 1390469068 -14400
# Node ID bcf2e1ca2971e6fb79f7c91c0e041d86581c149a
# Parent  015ed10e7e6681c396dcd08515fab63a4fa265ce
Use zlibFormat

diff -r 015ed10e7e66 -r bcf2e1ca2971 gameServer/EngineInteraction.hs
--- a/gameServer/EngineInteraction.hs	Wed Jan 22 23:52:21 2014 +0100
+++ b/gameServer/EngineInteraction.hs	Thu Jan 23 13:24:28 2014 +0400
@@ -14,7 +14,6 @@
 import Data.Bits
 import Control.Arrow
 import Data.Maybe
-import Codec.Compression.Zlib as Z
 -------------
 import CoreTypes
 import Utils
@@ -25,11 +24,11 @@
 -}
 import qualified Codec.Compression.Zlib.Internal as Z
 
-decompressWithoutExceptions :: BL.ByteString -> Either Z.DecompressError BL.ByteString
+decompressWithoutExceptions :: BL.ByteString -> Either String BL.ByteString
 decompressWithoutExceptions = finalise
                             . Z.foldDecompressStream cons nil err
-                            . Z.decompressWithErrors Z.gzipFormat Z.defaultDecompressParams
-  where err errorCode _ = Left errorCode
+                            . Z.decompressWithErrors Z.zlibFormat Z.defaultDecompressParams
+  where err errorCode msg = Left msg
         nil = Right []
         cons chunk = right (chunk :)
         finalise = right BL.fromChunks