module Hirc.Types where

type Command = String
type Param = String
type Receiver = String

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

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