summaryrefslogtreecommitdiffstats
path: root/Hirc/Types.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Hirc/Types.hs')
-rw-r--r--Hirc/Types.hs26
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