       (async/into {} sub-results))))
 
 (defn delete-cap
+  "Deletes a capability."
   [cap & {store :store}]
   (async/into {} (delete! store cap)))
 

    (async/into {:cap cap} ch)))

(defn get-cap
  [cap & {store :store kdf :kdf scheme :scheme}]
  (go (let [{index :index key :key} (crypto/derive kdf cap)
            blob (<! (retrieve store index))

            [ring.middleware.reload :refer [wrap-reload]]))

(defn create-cap
  "Creates a capability."
  [plan & {store :store kdf :kdf scheme :scheme}]
  (info plan)
  (let [cap (crypto/make-cap)
