 
 
 (defn get
-  "Loads content for a hash-id and returns a Blob record. Returns nil if no
-  blob is stored. The blob may contain `stat` metadata.
+  "Loads content for a hash-id and returns a blob record. Returns nil if no
+  blob is stored. The blob should include stat metadata.
 
-  This digest of the loaded content is checked against the requested hash-id."
+  The digest of the loaded content is checked against the requested hash-id.
+  Throws an exception if the digest does not match."
   [store id]
   (when-let [blob (get* store id)]
     (let [digest (content/hash (:algorithm id) (:content blob))]

      after  (drop-while #(pos? (compare after (str %))))
      prefix (take-while #(.startsWith (str %) prefix))
      limit  (take limit))))



(defn list
  "Enumerates the stored blobs, returning a sequence of `HashID`s.
  See `select-ids` for the available query options."
  ([store]
   (enumerate store nil))
