Fix build
authorunc0rr
Sat, 27 Feb 2016 20:56:49 +0300
changeset 11580 c8edd93b970f
parent 11579 d389ea7ca66f
child 11581 fd02a080d962
Fix build
gameServer/Actions.hs
--- a/gameServer/Actions.hs	Sat Feb 27 18:15:53 2016 +0300
+++ b/gameServer/Actions.hs	Sat Feb 27 20:56:49 2016 +0300
@@ -729,14 +729,15 @@
 
 
 processAction (LoadGhost location) = do
-    points <- io $ loadFile (B.unpack $ "ghosts/" `B.append` sanitizeName location)
     ri <- clientRoomA
     rnc <- gets roomsClients
     thisRoomChans <- liftM (map sendChan) $ roomClientsS ri
     rm <- io $ room'sM rnc id ri
+#if defined(OFFICIAL_SERVER)
+    points <- io $ loadFile (B.unpack $ "ghosts/" `B.append` sanitizeName location)
     when (roomProto rm > 51) $ do
         processAction $ ModifyRoom $ \r -> r{params = Map.insert "DRAWNMAP" [prependGhostPoints (toP points) $ head $ (params r) Map.! "DRAWNMAP"] (params r)}
-    -- inject ghost points into map
+#endif
     cl <- client's id
     mapM_ processAction $ map (replaceChans thisRoomChans) $ answerFullConfigParams cl (mapParams rm) (params rm)
     where