From c07b9562e72133ccf5a64e880beb53cb8499a642 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Thu, 8 Oct 2015 20:39:37 +0200
Subject: Parse IRC messages

---
 Hirc/Types.hs | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 Hirc/Types.hs

(limited to 'Hirc/Types.hs')

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
-- 
cgit v1.2.3