diff options
| author | Julien Dessaux | 2010-04-21 22:39:03 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2010-04-21 22:39:03 +0200 |
| commit | 8551832bd29508f36b6820e19d4af0525b1cba50 (patch) | |
| tree | 2a99933414aee751f3843be901940ab44dd4189e /Hsbot/Command.hs | |
| parent | Removed all the dynamic module loading stuff. (diff) | |
| download | hsbot-8551832bd29508f36b6820e19d4af0525b1cba50.tar.gz hsbot-8551832bd29508f36b6820e19d4af0525b1cba50.tar.bz2 hsbot-8551832bd29508f36b6820e19d4af0525b1cba50.zip | |
Add the IrcMsg as an optional parameter for an internal command.
Diffstat (limited to 'Hsbot/Command.hs')
| -rw-r--r-- | Hsbot/Command.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Hsbot/Command.hs b/Hsbot/Command.hs index f42db98..1eaee82 100644 --- a/Hsbot/Command.hs +++ b/Hsbot/Command.hs @@ -56,7 +56,7 @@ dispatchMessage (InputMsg inputMsg) = do , (head getMsgContent) == (commandPrefix config) ] sendRunCommand :: String -> Plugin -> IrcBot () sendRunCommand cmd plugin = do - sendToPlugin (InternalCmd $ IntCmd "RUN" "CORE" (pluginName plugin) cmd) plugin + sendToPlugin (InternalCmd $ IntCmd "RUN" "CORE" (pluginName plugin) cmd (Just inputMsg)) plugin getMsgContent :: String getMsgContent = unwords . tail $ parameters inputMsg dispatchMessage _ = return () |