diff options
Diffstat (limited to 'HsBot/Base.hs')
| -rw-r--r-- | HsBot/Base.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/HsBot/Base.hs b/HsBot/Base.hs index a349fad..f2b1139 100644 --- a/HsBot/Base.hs +++ b/HsBot/Base.hs @@ -27,7 +27,7 @@ dispatch msg sendMessage env@(Env state conf) = dispatch' msg cmdAction state return (env) Nothing -> return (env) - dispatch' _ = logicsRun msg env + dispatch' _ = logicsRun msg sendMessage env commands = [ Cmd "!h" "Prints help" printHelp, Cmd "!i" "Prints infos" printInfos, |