   (try
     (a/can-modify? resource request)
     (let [ops [{:rel (:edit c/action-uri) :href resource-url}]]
-      (println "ROOT SETTING OPERATIONS ops" ops)
       (assoc resource :operations ops))
     (catch Exception e
       (dissoc resource :operations))))

  []
  (let [record (u/update-timestamps
                 {:acl         resource-acl
                  :id          resource-url ;; TODO : special case id is given and resource is a "singleton"
                  :resourceURI resource-uri})]
    (db/add resource-name record {:user-roles ["ANON"]})))

(defn retrieve-impl
  [{:keys [base-uri] :as request}]
  (r/response (-> (db/retrieve (str resource-url "/1") {})
                  ;; (a/can-view? request)
                  (assoc :baseURI base-uri)
                  (merge resource-links)


(defn edit-impl
  [{:keys [body] :as request}]
  (let [current (-> (db/retrieve resource-url {})
                    (assoc :acl resource-acl)
                    (a/can-modify? request))
        updated (-> body
