adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Added a function to get the sender of an irc message.

Browse source
This commit is contained in:
Julien Dessaux 2011-05-13 18:10:55 +02:00
parent a6ac073a6c
commit 81fb522dd4
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Hsbot/Message.hs
View file

@ -2,6 +2,7 @@ module Hsbot.Message
( answerMsg ( answerMsg
, getCommand , getCommand
, getDestination , getDestination
, getSender
, readMsg , readMsg
, writeMsg , writeMsg
) where ) where
@ -37,6 +38,10 @@ getCommand (IRC.Message _ _ (_:msg:[])) = do
else return [] else return []
getCommand _ = return [] getCommand _ = return []
getSender :: IRC.Message -> String
getSender (IRC.Message (Just (IRC.NickName nick _ _)) _ _) = nick
getSender _ = ""
-- | Get the destination of a message -- | Get the destination of a message
getDestination :: IRC.Message -> String getDestination :: IRC.Message -> String
getDestination (IRC.Message _ _ (dest:_:[])) = dest getDestination (IRC.Message _ _ (dest:_:[])) = dest