fix command sending

This commit is contained in:
Roman Volosovskyi 2016-11-05 15:00:10 +02:00
parent a70d3eba28
commit 64863c87ac
1 changed files with 2 additions and 2 deletions

View File

@ -24,10 +24,10 @@
(register-handler :invoke-console-command-handler! (register-handler :invoke-console-command-handler!
(u/side-effect! (u/side-effect!
(fn [_ [_ {:keys [staged-command] :as parameters}]] (fn [_ [_ {:keys [chat-id staged-command] :as parameters}]]
(let [{:keys [id command params]} staged-command (let [{:keys [id command params]} staged-command
{:keys [name]} command] {:keys [name]} command]
(dispatch [:prepare-command! parameters]) (dispatch [:prepare-command! chat-id parameters])
((console-commands (keyword name)) params id))))) ((console-commands (keyword name)) params id)))))
(register-handler :set-message-status (register-handler :set-message-status