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