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 ++++++
 hsbot.cabal      | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

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 _ = ""
+
diff --git a/hsbot.cabal b/hsbot.cabal
index f92af2d..50536d0 100644
--- a/hsbot.cabal
+++ b/hsbot.cabal
@@ -1,5 +1,5 @@
 Name:               hsbot
-Version:            0.4.12
+Version:            0.4.13
 Cabal-version:      >=1.2
 Synopsis:           A multipurposes IRC bot
 Description:
-- 
cgit v1.2.3