msg-id must be string

This commit is contained in:
Roman Volosovskyi 2016-04-25 11:45:51 +03:00
parent 0187bc7bce
commit a6072e4c82
1 changed files with 3 additions and 3 deletions

View File

@ -154,21 +154,21 @@
(defn intro [db] (defn intro [db]
(dispatch [:received-msg (dispatch [:received-msg
{:msg-id :intro-message1 {:msg-id "intro-message1"
:content "Hello there! It's Syng, a Dapp browser in your phone." :content "Hello there! It's Syng, a Dapp browser in your phone."
:content-type text-content-type :content-type text-content-type
:outgoing false :outgoing false
:from "console" :from "console"
:to "me"}]) :to "me"}])
(dispatch [:received-msg (dispatch [:received-msg
{:msg-id :intro-message2 {:msg-id "intro-message2"
:content (str "Syng uses a highly secure key-pair authentication type " :content (str "Syng uses a highly secure key-pair authentication type "
"to provide you a reliable way to access your account") "to provide you a reliable way to access your account")
:content-type text-content-type :content-type text-content-type
:outgoing false :outgoing false
:from "console" :from "console"
:to "me"}]) :to "me"}])
(let [msg-id :intro-message3] (let [msg-id "into-message3"]
(dispatch [:received-msg (dispatch [:received-msg
{:msg-id msg-id {:msg-id msg-id
:content (commands/format-command-request-msg-content :content (commands/format-command-request-msg-content