check for string message

This commit is contained in:
Roman Volosovskyi 2016-04-25 11:36:37 +03:00
parent d1bc2196fa
commit 0187bc7bce
1 changed files with 3 additions and 2 deletions

View File

@ -58,8 +58,9 @@
(defn load-commands [] (defn load-commands []
(http-get "chat-commands.js" execute-commands-js nil)) (http-get "chat-commands.js" execute-commands-js nil))
(defn check-suggestion [db text] (defn check-suggestion [db message]
(when-let [suggestion-text (re-matches #"^![^\s]+\s" text)] (when-let [suggestion-text (when (string? message)
(re-matches #"^![^\s]+\s" message))]
(let [suggestion-text' (s/trim suggestion-text) (let [suggestion-text' (s/trim suggestion-text)
[suggestion] (filter #(= suggestion-text' (:text %)) [suggestion] (filter #(= suggestion-text' (:text %))
(get-commands db))] (get-commands db))]