equal
deleted
inserted
replaced
1 {-# LANGUAGE OverloadedStrings #-} |
1 {-# LANGUAGE OverloadedStrings, DeriveDataTypeable #-} |
2 module CoreTypes where |
2 module CoreTypes where |
3 |
3 |
4 import Control.Concurrent |
4 import Control.Concurrent |
5 import Control.Concurrent.STM |
|
6 import Data.Word |
5 import Data.Word |
7 import qualified Data.Map as Map |
6 import qualified Data.Map as Map |
8 import Data.Sequence(Seq, empty) |
7 import Data.Sequence(Seq, empty) |
9 import Data.Time |
8 import Data.Time |
10 import Network |
9 import Network |
11 import Data.Function |
10 import Data.Function |
12 import Data.ByteString.Char8 as B |
11 import Data.ByteString.Char8 as B |
13 import Data.Unique |
12 import Data.Unique |
14 |
13 import Control.Exception |
|
14 import Data.Typeable |
|
15 ----------------------- |
15 import RoomsAndClients |
16 import RoomsAndClients |
16 |
17 |
17 type ClientChan = Chan [B.ByteString] |
18 type ClientChan = Chan [B.ByteString] |
18 |
19 |
19 data ClientInfo = |
20 data ClientInfo = |
189 |
190 |
190 data Notice = |
191 data Notice = |
191 NickAlreadyInUse |
192 NickAlreadyInUse |
192 | AdminLeft |
193 | AdminLeft |
193 deriving Enum |
194 deriving Enum |
|
195 |
|
196 data ShutdownException = ShutdownException |
|
197 deriving (Show, Typeable) |
|
198 |
|
199 instance Exception ShutdownException |