adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Fixed a bug in command parsing

Browse source
This commit is contained in:
Julien Dessaux 2011-06-17 13:07:25 +02:00
parent 066b271510
commit 336ec59689
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
Hsbot/Message.hs
View file

@ -30,12 +30,15 @@ answerMsg _ _ = return ()
-- | Get the command in the IRC message if there is one
getCommand :: IRC.Message -> Env IO [String]
getCommand (IRC.Message _ _ (_:msg:[])) = do
currentBotState <- asks envBotState >>= liftIO . readMVar
let cmd:stuff = if msg /= "" then words msg else ["",""]
if botNickname currentBotState `L.isPrefixOf` cmd
then return stuff
else return []
getCommand (IRC.Message _ _ (_:msg:[])) = getCommandFrom $ words msg
where
getCommandFrom :: [String] -> Env IO [String]
getCommandFrom (cmd:stuff) = do
currentBotState <- asks envBotState >>= liftIO . readMVar
if botNickname currentBotState `L.isPrefixOf` cmd
then return stuff
else return []
getCommandFrom _ = return []
getCommand _ = return []
getSender :: IRC.Message -> String