Add `Message` types

Add a few types to collect properties of a message, including message
body, channel posted to, and sender.

Need something like this for the GitHub Commit plugin, where we need
access to the message to get the SHA, and we need the channel to get the
repo URL from the database.

1 files changed, 15 insertions, 0 deletions

diff --git a/src/Message.hs b/src/Message.hs
new file mode 100644
index 0000000..6a95638
--- /dev/null
+++ b/src/Message.hs
@@ -0,0 +1,15 @@
+module Message
+    ( Message(..)
+    , Channel
+    , Nick
+    ) where
+
+type Channel = String
+
+type Nick = String
+
+data Message = Message
+    { text    :: String
+    , channel :: Channel
+    , nick    :: Nick
+    }