 
   (-keys [_this env]
     (async+sync (:sync? env) *default-sync-translation*
-                (go-try- (into [] (list-files base)))))
+                (go-try- (into [] (list-files base ephemeral?)))))
 
   (-copy [_this from to env]
     (async+sync (:sync? env) *default-sync-translation*

      (catch Exception e
        e))))

(defn list-files [directory]
  "Lists all files on the first level of a directory."
  (let [root (Paths/get directory (into-array String []))
        ds (Files/newDirectoryStream root)
        files (mapv (fn [^Path path]
                      (str (.relativize root path))) ds)]
    (.close ds)
    files))

(defn count-konserve-keys [dir]
  "Counts konserve files in the directory."

  (<!! (k/bassoc store :binbar (byte-array (range 10)) {:sync? false}))
  (<!! (k/bget store :binbar (fn [{:keys [input-stream]}]
                               (map byte (slurp input-stream)))
               {:sync? false})))
