aboutsummaryrefslogtreecommitdiffstats
path: root/src/Reaktor/Message.hs
blob: c679d788e79a68e465630775cf8467ec8a57844a (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.Internal


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