--- a/gameServer/OfficialServer/checker.hs	Thu Aug 11 23:05:14 2016 +0300
+++ b/gameServer/OfficialServer/checker.hs	Sun Dec 17 00:09:24 2017 +0100
@@ -37,6 +37,7 @@
 import qualified Codec.Binary.Base64 as Base64
 import System.Process
 import Data.Maybe
+import Data.Either
 import qualified Data.List as L
 #if !defined(mingw32_HOST_OS)
 import System.Posix
@@ -54,7 +55,7 @@
     deriving Show
 
 serverAddress = "netserver.hedgewars.org"
-protocolNumber = "51"
+protocolNumber = "53"
 
 getLines :: Handle -> IO [B.ByteString]
 getLines h = g
@@ -92,7 +93,7 @@
 checkReplay home exe prefix coreChan msgs = do
     tempDir <- getTemporaryDirectory
     (fileName, h) <- openBinaryTempFile tempDir "checker-demo"
-    B.hPut h . BW.pack . concat . map (fromMaybe [] . Base64.decode . B.unpack) $ msgs
+    B.hPut h . B.concat . map (either (const B.empty) id . Base64.decode) $ msgs
     hFlush h
     hClose h