diff options
| -rw-r--r-- | Hsbot/Message.hs | 6 | ||||
| -rw-r--r-- | hsbot.cabal | 2 |
2 files changed, 7 insertions, 1 deletions
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: |