        (let [{type :type id :id} route-params]
          (put-command! id
                       {:type        (keyword type)
-                       :id           id
+                       :id          id
                        :remote-addr remote-addr
                        :body        (zipmap (map keyword
                                                  (keys form-params))

  (GET "/events/:user/:position" [user position]
       {:status  200
        :headers {"content-type" "application/json"}
        :body    (getevents user position)})

  (PUT "/command/:type/:id"
       {route-params :route-params

    lamina.core
    cheshire.core))

(defn get-events [user position]
  (if (not (valid-position? position))
    (cheshire.core/generate-string {:goaway true})
    (let [ch (lamina.core/channel)]
