gameServer/EngineInteraction.hs
changeset 10060 bcf2e1ca2971
parent 10058 4ed428389c4e
child 10065 35bd559c1973
--- 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