gameServer/CoreTypes.hs
changeset 5007 c401891fe5e0
parent 5006 6913d677c891
child 5143 649d87819682
--- 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)