From 4c74e39b922ff0d2dd572f90cee0cd842aa40a84 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Thu, 8 Oct 2015 22:01:46 +0200
Subject: Evaluate parsed messages

---
 Hirc/Types.hs | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

(limited to 'Hirc/Types.hs')

diff --git a/Hirc/Types.hs b/Hirc/Types.hs
index 1bb258c..2567b53 100644
--- a/Hirc/Types.hs
+++ b/Hirc/Types.hs
@@ -1,5 +1,9 @@
 module Hirc.Types where
 
+type Command = String
+type Param = String
+type Receiver = String
+
 data Message =
   Message {
     m_prefix :: Maybe Prefix,
@@ -8,8 +12,6 @@ data Message =
   }
   deriving Show
 
-type Param = String
-
 data Prefix =
   Prefix {
     p_name :: String,
@@ -18,9 +20,3 @@ data Prefix =
   }
   deriving Show
 
-data Command =
-  PRIVMSG Receiver [Receiver] String |
-  UnknownCommand String
-  deriving Show
-
-type Receiver = String
-- 
cgit v1.2.3