# HG changeset patch
# User unc0rr
# Date 1296938245 -10800
# Node ID c7829611c6826b38568caee99fcd642db656452e
# Parent  89777ce0d273c6529c5c095c583e9ccbd8fc5b31
Fix admin stuff :D

diff -r 89777ce0d273 -r c7829611c682 gameServer/Actions.hs
--- a/gameServer/Actions.hs	Sat Feb 05 23:33:10 2011 +0300
+++ b/gameServer/Actions.hs	Sat Feb 05 23:37:25 2011 +0300
@@ -325,7 +325,7 @@
     case info of
         HasAccount passwd isAdmin -> do
             chan <- client's sendChan
-            mapM_ processAction [AnswerClients [chan] ["ASKPASSWORD"], ModifyClient (\c -> c{webPassword = passwd})]
+            mapM_ processAction [AnswerClients [chan] ["ASKPASSWORD"], ModifyClient (\c -> c{webPassword = passwd, isAdministrator = isAdmin})]
         Guest -> do
             processAction JoinLobby
         Admin -> do