module Hirc.Types where

data Message =
  Message {
    m_prefix :: Maybe Prefix,
    m_command :: Command,
    m_params :: [Param]
  }
  deriving Show

type Param = String

data Prefix =
  Prefix {
    p_name :: String,
    p_user :: Maybe String,
    p_host :: Maybe String
  }
  deriving Show

data Command =
  PRIVMSG Receiver [Receiver] String |
  UnknownCommand String
  deriving Show

type Receiver = String