From eb0ca70a636183fea73d884e20a48ac6120066bc Mon Sep 17 00:00:00 2001 From: pb Date: Sun, 28 Mar 2010 13:32:02 +0000 Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@54 9f8f72e9-4bf4-416e-b76e-7d4203597157 --- HsBot/Base.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'HsBot/Base.hs') 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, -- cgit v1.2.3