summaryrefslogtreecommitdiff
path: root/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Main.hs b/Main.hs
index b3c6f7c..d515037 100644
--- a/Main.hs
+++ b/Main.hs
@@ -46,6 +46,6 @@ dispatch cmd sendMessage env@(Env state conf _) =
exitWith ExitSuccess
in case cmdGet ("!" ++ cmd) commands of
- Just (Cmd _ _ dispatchFunction) -> dispatchFunction state
- Nothing -> dispatch "i" sendMessage env
+ Just (Cmd _ _ cmdAction) -> cmdAction state
+ Nothing -> return ()