Added a function to get the destination channel of a message.

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 _ = ""
+

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: