|
|
@@ -2,7 +2,11 @@ module IRC.Connection where |
|
|
|
|
|
|
|
import Data.Word (Word16) |
|
|
|
|
|
|
|
--import qualified Network.Socket as S |
|
|
|
import qualified Network.Socket as S |
|
|
|
|
|
|
|
data Connection = Connection { connSocket :: S.Socket, |
|
|
|
connNick :: String, |
|
|
|
} |
|
|
|
|
|
|
|
-- The host to connect to. |
|
|
|
type Host = String |
|
|
@@ -10,4 +14,5 @@ type Host = String |
|
|
|
-- The port to connect to. |
|
|
|
type Port = Word16 |
|
|
|
|
|
|
|
--connect :: S.Socket |
|
|
|
connect :: Host -> Port |
|
|
|
connect = error "unimplemented" |