send group name in test app

This commit is contained in:
michaelr 2016-04-29 16:21:08 +03:00
parent dd9e1d98f4
commit 9874a3aee2
1 changed files with 1 additions and 1 deletions

View File

@ -150,7 +150,7 @@
(defn start-group-chat []
(let [identities (get-group-identities)]
(add-to-chat "group-chat" ":" (str "Starting group chat with " identities))
(let [group-id (p/start-group-chat identities)]
(let [group-id (p/start-group-chat identities "zgroup!")]
(set-group-id! group-id))))
(defn add-new-peer-to-group []