# HG changeset patch
# User sheepluva
# Date 1390402416 -3600
# Node ID 6748866c94ee2d13ec2d4542dceda7c7f1e42c32
# Parent  cc6f62d7aea2fdb3c5f1633572078dc1e91efa4f
fix server not building

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