equal
deleted
inserted
replaced
123 nextRoomID :: Int, |
123 nextRoomID :: Int, |
124 dbHost :: B.ByteString, |
124 dbHost :: B.ByteString, |
125 dbName :: B.ByteString, |
125 dbName :: B.ByteString, |
126 dbLogin :: B.ByteString, |
126 dbLogin :: B.ByteString, |
127 dbPassword :: B.ByteString, |
127 dbPassword :: B.ByteString, |
128 lastLogins :: [(B.ByteString, (UTCTime, B.ByteString))], |
128 bans :: [BanInfo], |
129 restartPending :: Bool, |
129 restartPending :: Bool, |
130 coreChan :: Chan CoreMessage, |
130 coreChan :: Chan CoreMessage, |
131 dbQueries :: Chan DBQuery, |
131 dbQueries :: Chan DBQuery, |
132 serverConfig :: Maybe Conf |
132 serverConfig :: Maybe Conf |
133 } |
133 } |
190 instance Show ShutdownThreadException where |
190 instance Show ShutdownThreadException where |
191 show (ShutdownThreadException s) = s |
191 show (ShutdownThreadException s) = s |
192 instance Exception ShutdownThreadException |
192 instance Exception ShutdownThreadException |
193 |
193 |
194 data BanInfo = |
194 data BanInfo = |
195 BanByIP String UTCTime |
195 BanByIP B.ByteString B.ByteString UTCTime |
196 | BanByNickname String UTCTime |
196 | BanByNick B.ByteString B.ByteString UTCTime |
197 deriving (Show, Read) |
197 deriving (Show, Read) |