From 27df2808fc4618699abf6b8b8fcd88de26615bb6 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Wed, 11 May 2011 00:17:10 +0200
Subject: Added a function to get the destination channel of a message.

---
 Hsbot/Message.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'Hsbot')

diff --git a/Hsbot/Message.hs b/Hsbot/Message.hs
index dd15f75..9bb77f1 100644
--- a/Hsbot/Message.hs
+++ b/Hsbot/Message.hs
@@ -1,6 +1,7 @@
 module Hsbot.Message
     ( answerMsg
     , getCommand
+    , getDestination
     , readMsg
     , writeMsg
     ) where
@@ -36,3 +37,8 @@ getCommand (IRC.Message _ _ (_:msg:[])) = do
         else return []
 getCommand _ = return []
 
+-- | Get the destination of a message
+getDestination :: IRC.Message -> String
+getDestination (IRC.Message _ _ (dest:_:[])) = dest
+getDestination _ = ""
+
-- 
cgit v1.2.3