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

  []
  (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)

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