diff options
| -rw-r--r-- | Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 () |
