1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
{-# LANGUAGE OverloadedStrings #-}
module Network.IRC.Commands (
-- * Types
Channel
, Password
-- * IRC Functions
, nick
, user
, joinChan
, part
, quit
, privmsg
, kick
, pong
) where
import Data.ByteString
import Network.IRC.Base
type Channel = ByteString
type Password = ByteString
type Reason = ByteString
mkMessage :: Command -> [Parameter] -> Message
mkMessage = Message Nothing
nick :: UserName -> Message
nick u = mkMessage "NICK" [u]
user :: UserName -> ServerName -> ServerName -> RealName -> Message
user u h s r = mkMessage "USER" [u,h,s,r]
joinChan :: Channel -> Message
joinChan c = mkMessage "JOIN" [c]
kick :: Channel -> UserName -> Maybe Reason -> Message
kick c u (Just r) = mkMessage "KICK" [c,u,r]
kick c u Nothing = mkMessage "KICK" [c,u]
part :: Channel -> Message
part c = mkMessage "PART" [c]
quit :: Maybe Reason -> Message
quit (Just m) = mkMessage "QUIT" [m]
quit Nothing = mkMessage "QUIT" []
privmsg :: Channel -> ByteString -> Message
privmsg c m = mkMessage "PRIVMSG" [c,m]
pong :: ServerName -> Message
pong s = mkMessage "PONG" [s]
|
