 (defn dispatch-command!
   "Calls the appropriate timer command."
   [channel command-data]
+  (log/debug (merge {:event ::received-data} command-data))
   (if-let [google-id (get @channel->google-id channel)]
     (if-let [command-fn (command-map (get command-data :command))]
       (command-fn channel google-id (dissoc command-data :command))


;; Utils ----------------------

(defn broadcast-to!
  "Serializes data and sends it to all connections belonging to
  google-id."
  [google-id data]
  (let [str-data (json/encode data)]
    (doseq [channel (get @active-connections google-id)]
      (send! channel str-data))))


(defn send-error!
  [channel message]
  (send-data! channel
              {:error message}))

(defn send-invalid-args!
  [channel]
