From 87465e7599d5353110669f5dec8a782c6061c7fd Mon Sep 17 00:00:00 2001 From: Roman Volosovskyi Date: Mon, 25 Apr 2016 11:36:37 +0300 Subject: [PATCH] check for string message Former-commit-id: 0187bc7bceec8be7468151b630797664a54913af --- src/syng_im/handlers/suggestions.cljs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/syng_im/handlers/suggestions.cljs b/src/syng_im/handlers/suggestions.cljs index 760d92d646..3896482ad6 100644 --- a/src/syng_im/handlers/suggestions.cljs +++ b/src/syng_im/handlers/suggestions.cljs @@ -58,8 +58,9 @@ (defn load-commands [] (http-get "chat-commands.js" execute-commands-js nil)) -(defn check-suggestion [db text] - (when-let [suggestion-text (re-matches #"^![^\s]+\s" text)] +(defn check-suggestion [db message] + (when-let [suggestion-text (when (string? message) + (re-matches #"^![^\s]+\s" message))] (let [suggestion-text' (s/trim suggestion-text) [suggestion] (filter #(= suggestion-text' (:text %)) (get-commands db))]