diff -r 6913d677c891 -r c401891fe5e0 gameServer/CoreTypes.hs --- a/gameServer/CoreTypes.hs Sun Mar 13 15:20:07 2011 +0300 +++ b/gameServer/CoreTypes.hs Sun Mar 13 20:21:27 2011 +0300 @@ -125,7 +125,7 @@ dbName :: B.ByteString, dbLogin :: B.ByteString, dbPassword :: B.ByteString, - lastLogins :: [(B.ByteString, (UTCTime, B.ByteString))], + bans :: [BanInfo], restartPending :: Bool, coreChan :: Chan CoreMessage, dbQueries :: Chan DBQuery, @@ -192,6 +192,6 @@ instance Exception ShutdownThreadException data BanInfo = - BanByIP String UTCTime - | BanByNickname String UTCTime + BanByIP B.ByteString B.ByteString UTCTime + | BanByNick B.ByteString B.ByteString UTCTime deriving (Show, Read)