diff options
Diffstat (limited to '')
| -rw-r--r-- | Hsbot/Message.hs | 6 |
1 files changed, 6 insertions, 0 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 _ = "" + |