10 import Data.Function |
10 import Data.Function |
11 import Data.ByteString.Char8 as B |
11 import Data.ByteString.Char8 as B |
12 import Data.Unique |
12 import Data.Unique |
13 import Control.Exception |
13 import Control.Exception |
14 import Data.Typeable |
14 import Data.Typeable |
15 import Data.TConfig |
|
16 ----------------------- |
15 ----------------------- |
17 import RoomsAndClients |
16 import RoomsAndClients |
18 |
17 |
19 type ClientChan = Chan [B.ByteString] |
18 type ClientChan = Chan [B.ByteString] |
20 |
19 |
132 serverMessageForOldVersions :: B.ByteString, |
131 serverMessageForOldVersions :: B.ByteString, |
133 latestReleaseVersion :: Word16, |
132 latestReleaseVersion :: Word16, |
134 listenPort :: PortNumber, |
133 listenPort :: PortNumber, |
135 nextRoomID :: Int, |
134 nextRoomID :: Int, |
136 dbHost :: B.ByteString, |
135 dbHost :: B.ByteString, |
|
136 dbName :: B.ByteString, |
137 dbLogin :: B.ByteString, |
137 dbLogin :: B.ByteString, |
138 dbPassword :: B.ByteString, |
138 dbPassword :: B.ByteString, |
139 lastLogins :: [(B.ByteString, (UTCTime, B.ByteString))], |
139 lastLogins :: [(B.ByteString, (UTCTime, B.ByteString))], |
140 restartPending :: Bool, |
140 restartPending :: Bool, |
141 coreChan :: Chan CoreMessage, |
141 coreChan :: Chan CoreMessage, |