diff options
Diffstat (limited to 'HsBot/Callbacks/MessageCounter.hs')
| -rw-r--r-- | HsBot/Callbacks/MessageCounter.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/HsBot/Callbacks/MessageCounter.hs b/HsBot/Callbacks/MessageCounter.hs index 1f12e62..a2782a8 100644 --- a/HsBot/Callbacks/MessageCounter.hs +++ b/HsBot/Callbacks/MessageCounter.hs @@ -1,5 +1,7 @@ module HsBot.Callbacks.MessageCounter (messageCounter) where +import HsBot.Callbacks.Callback + import HsBot.Base.Env import HsBot.Base.State @@ -7,6 +9,6 @@ import HsBot.IRC.User update user = user { userMessages = 1 + userMessages user } -messageCounter :: String -> SendMessage -> Env -> IO Env +messageCounter :: CallbackFunction messageCounter str sendMessage (Env state conf) = do return (Env (stateUpdateUser state (currentSender state) update) conf) |