Parse IRC messages

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