{-# LANGUAGE DeriveDataTypeable, RecordWildCards, OverloadedStrings #-}
module Network.IRC.Bot.Types
( User(..)
, nullUser
) where
import Data.ByteString (ByteString)
import Data.Data (Data, Typeable)
import Network.IRC as I
import Network.Socket (HostName)
data User = User
{ username :: ByteString
, hostname :: HostName
, servername :: HostName
, realname :: ByteString
}
deriving (Data, Typeable, Eq, Ord, Read, Show)
nullUser :: User
nullUser = User { username = ""
, hostname = "."
, servername = "."
, realname = ""
}