changeset 1841 | fba7210b438b |
parent 1839 | 5dd4cb7fd7e5 |
child 1847 | 2178c0fc838c |
--- a/gameServer/CoreTypes.hs Tue Feb 24 21:47:17 2009 +0000 +++ b/gameServer/CoreTypes.hs Wed Feb 25 17:12:32 2009 +0000 @@ -19,6 +19,8 @@ clientHandle :: Handle, host :: String, nick :: String, + webPassword :: String, + logonPassed :: Bool, clientProto :: Word16, roomID :: Int, isMaster :: Bool, @@ -137,8 +139,7 @@ ) data AccountInfo = - HasAccount - | LogonPassed + HasAccount String | Guest data CoreMessage =