gameServer/CoreTypes.hs
changeset 4955 84543ecae8c3
parent 4941 90572c338e60
child 4957 3684faf5b3d1
equal deleted inserted replaced
4952:df752b69a142 4955:84543ecae8c3
   133         nextRoomID :: Int,
   133         nextRoomID :: Int,
   134         dbHost :: B.ByteString,
   134         dbHost :: B.ByteString,
   135         dbLogin :: B.ByteString,
   135         dbLogin :: B.ByteString,
   136         dbPassword :: B.ByteString,
   136         dbPassword :: B.ByteString,
   137         lastLogins :: [(B.ByteString, (UTCTime, B.ByteString))],
   137         lastLogins :: [(B.ByteString, (UTCTime, B.ByteString))],
       
   138         restartPending :: Bool,
   138         stats :: TMVar StatisticsInfo,
   139         stats :: TMVar StatisticsInfo,
   139         coreChan :: Chan CoreMessage,
   140         coreChan :: Chan CoreMessage,
   140         dbQueries :: Chan DBQuery
   141         dbQueries :: Chan DBQuery
   141     }
   142     }
   142 
   143 
   154         0
   155         0
   155         ""
   156         ""
   156         ""
   157         ""
   157         ""
   158         ""
   158         []
   159         []
       
   160         False
   159 
   161 
   160 data AccountInfo =
   162 data AccountInfo =
   161     HasAccount B.ByteString Bool
   163     HasAccount B.ByteString Bool
   162     | Guest
   164     | Guest
   163     | Admin
   165     | Admin