blob: f92947102f6cacf8d2b13c207d437b09047444a3 (
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 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:[])
|
