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

7
Hsbot/Message.hs
View file

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