2020-07-21 18:59:30 -04:00
|
|
|
module IRC.Connection where
|
|
|
|
|
|
|
|
import Data.Word (Word16)
|
|
|
|
|
2020-07-22 11:02:18 -04:00
|
|
|
import qualified Network.Socket as S
|
|
|
|
|
2020-07-22 11:06:47 -04:00
|
|
|
--data Connection = Connection { connSocket :: S.Socket,
|
|
|
|
-- connNick :: String,
|
|
|
|
-- }
|
2020-07-21 18:59:30 -04:00
|
|
|
|
|
|
|
-- The host to connect to.
|
|
|
|
type Host = String
|
|
|
|
|
|
|
|
-- The port to connect to.
|
|
|
|
type Port = Word16
|
|
|
|
|
2020-07-22 11:06:47 -04:00
|
|
|
--connect :: Host -> Port
|
|
|
|
--connect = error "unimplemented"
|