   :handle-created
   (fn [{id :programme-id {routes :modular.bidi/routes} :request}]
     (let [location (path-for routes (:programme @handlers) :programme-id id)]
-      (ring-response {:headers {"Location" location}}))))
+      (ring-response {:headers {"Location" location} :body (encode {:location location :status "OK" :version "4"})}))))
 
 (defresource programme [{:keys [commander querier]} handlers]
   :allowed-methods #{:get}

        (when-not location (throw (ex-info "No path resolved for Location header"
                                           {:entity-id entity-id
                                            :device-id device-id})))
        (ring-response {:headers {"Location" location}}))
      (ring-response {:status 422 :body "Provide valid entityId."}))))

(defresource device [{:keys [commander querier]} handlers]

        (when-not location
          (throw (ex-info "No path resolved for Location header"
                          {:entity-id id})))
        (ring-response {:headers {"Location" location} :body (encode {:location location :status "OK" :version "4"})}))
      (ring-response {:status 422 :body "Provide valid projectId and propertyCode."}))))

(defresource entity [{:keys [commander querier]} handlers]
