--- a/gameServer/EngineInteraction.hs	Tue Sep 27 19:27:19 2011 +0400
+++ b/gameServer/EngineInteraction.hs	Thu Sep 29 17:25:25 2011 +0400
@@ -6,7 +6,8 @@
 import qualified Codec.Binary.Base64 as Base64
 import qualified Data.ByteString.Char8 as B
 import qualified Data.ByteString as BW
-
+-------------
+import CoreTypes
 
 
 toEngineMsg :: B.ByteString -> B.ByteString
@@ -30,3 +31,9 @@
         legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sFNpPwtghbc12345" ++ slotMessages
         slotMessages = "\128\129\130\131\132\133\134\135\136\137\138"
 
+gameInfo2Replay :: GameInfo -> B.ByteString
+gameInfo2Replay GameInfo{roundMsgs = rm,
+        teamsAtStart = teams,
+        params1 = giMapParams,
+        params2 = giParams} = do
+