diff options
Diffstat (limited to 'Hirc/Types.hs')
-rw-r--r-- | Hirc/Types.hs | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/Hirc/Types.hs b/Hirc/Types.hs new file mode 100644 index 0000000..1bb258c --- /dev/null +++ b/Hirc/Types.hs @@ -0,0 +1,26 @@ +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 |