diff options
| author | tv <tv@shackspace.de> | 2015-10-08 22:01:46 +0200 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2015-10-08 22:03:31 +0200 |
| commit | 4c74e39b922ff0d2dd572f90cee0cd842aa40a84 (patch) | |
| tree | 38e323ba3c84750f4a83a88b4993cb50b9a3e365 /Hirc/Types.hs | |
| parent | c07b9562e72133ccf5a64e880beb53cb8499a642 (diff) | |
Evaluate parsed messages
Diffstat (limited to 'Hirc/Types.hs')
| -rw-r--r-- | Hirc/Types.hs | 12 |
1 files changed, 4 insertions, 8 deletions
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 |