gameServer/EngineInteraction.hs
changeset 10983 6aba07ea908b
parent 10779 d85fe0cb5df2
child 10984 c828cabe33af
--- a/gameServer/EngineInteraction.hs	Tue Jun 02 19:53:30 2015 +0100
+++ b/gameServer/EngineInteraction.hs	Wed Jun 03 23:24:56 2015 +0300
@@ -16,9 +16,13 @@
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  \-}
 
-{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE CPP, OverloadedStrings #-}
 
+#if defined(OFFICIAL_SERVER)
 module EngineInteraction(replayToDemo, checkNetCmd, toEngineMsg, drawnMapData) where
+#else
+module EngineInteraction(checkNetCmd, toEngineMsg, drawnMapData) where
+#endif
 
 import qualified Data.Set as Set
 import Control.Monad
@@ -89,6 +93,7 @@
         slotMessages = "\128\129\130\131\132\133\134\135\136\137\138"
         timedMessages = Set.fromList $ "+LlRrUuDdZzAaSjJ,NpPwtgfc12345" ++ slotMessages
 
+#if defined(OFFICIAL_SERVER)
 replayToDemo :: [TeamInfo]
         -> Map.Map B.ByteString B.ByteString
         -> Map.Map B.ByteString [B.ByteString]
@@ -152,6 +157,7 @@
                             ])
                         $ hedgehogs t
                         )
+#endif
 
 drawnMapData :: B.ByteString -> [B.ByteString]
 drawnMapData =