blob: c1c7cedfd708fc4aa9a5c270abd613a81884f0eb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{-# LANGUAGE OverloadedStrings #-}
module Reaktor.Message where
import qualified Data.ByteString.Char8.Extended as BS
import Reaktor.Types
privmsg :: BS.ByteString -> [BS.ByteString] -> Message
privmsg msgtarget xs =
Message Nothing "PRIVMSG" (msgtarget:BS.intercalate " " xs:[])
notice :: BS.ByteString -> [BS.ByteString] -> Message
notice msgtarget xs =
Message Nothing "NOTICE" (msgtarget:BS.intercalate " " xs:[])
|
