# HG changeset patch
# User unc0rr
# Date 1390387533 -14400
# Node ID 9616052bd333ecff7b6688e96a85d28e48f8918f
# Parent  ca11d122f54e6833f4c6184d00a716c6a1f5e840
Check if frontend was too lazy to actually send drawn map data to the server

diff -r ca11d122f54e -r 9616052bd333 gameServer/EngineInteraction.hs
--- a/gameServer/EngineInteraction.hs	Wed Jan 22 09:19:08 2014 +0400
+++ b/gameServer/EngineInteraction.hs	Wed Jan 22 14:45:33 2014 +0400
@@ -86,7 +86,7 @@
         mapgen = mParams Map.! "MAPGEN"
         mapgenSpecific = case mapgen of
             "1" -> [eml ["e$maze_size ", head $ prms Map.! "MAZE_SIZE"]]
-            "2" -> drawnMapData . head $ prms Map.! "DRAWNMAP"
+            "2" -> let d = head $ prms Map.! "DRAWNMAP" in if null $ tail d then [] else drawnMapData d
             _ -> []
         gameFlags :: Word32
         gameFlags = foldl (\r (b, f) -> if b == "false" then r else r .|. f) 0 $ zip scheme gameFlagConsts