diff options
| author | pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157> | 2010-03-28 13:32:02 +0000 |
|---|---|---|
| committer | pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157> | 2010-03-28 13:32:02 +0000 |
| commit | eb0ca70a636183fea73d884e20a48ac6120066bc (patch) | |
| tree | 21ba24da99c38fd58a2758876a9bb39af94dc19c /HsBot/Base.hs | |
| parent | 4f80cd186f21d9bb6fb3c0ae31e7626c21f531c6 (diff) | |
git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@54 9f8f72e9-4bf4-416e-b76e-7d4203597157
Diffstat (limited to 'HsBot/Base.hs')
| -rw-r--r-- | HsBot/Base.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/HsBot/Base.hs b/HsBot/Base.hs index f2b1139..8f6d099 100644 --- a/HsBot/Base.hs +++ b/HsBot/Base.hs @@ -8,7 +8,7 @@ import HsBot.Base.Env import HsBot.Base.State import HsBot.General.Tools import HsBot.IRC -import HsBot.Logics +import HsBot.Callbacks startBase :: IO () startBase = do @@ -27,7 +27,7 @@ dispatch msg sendMessage env@(Env state conf) = dispatch' msg cmdAction state return (env) Nothing -> return (env) - dispatch' _ = logicsRun msg sendMessage env + dispatch' _ = callbacksRun msg sendMessage env commands = [ Cmd "!h" "Prints help" printHelp, Cmd "!i" "Prints infos" printInfos, |