                                :key       key
                                :exception e}))))))
 
-(defn- read-binary-old [f folder fn key copy-fn]
+(defn- read-binary-old [f folder fn key locked-cb]
   (let [res-ch-old (chan)]
     (try
       (let [ac (AsynchronousFileChannel/open (.getPath (FileSystems/getDefault)

            (write-edn-key serializer write-handlers read-handlers (str folder "/meta/") fn {:key key :format :binary} config)
            (delete-entry (str "/B_" fn) folder config)
            (read-binary f res-ch folder fn key locked-cb)))
        (go (read-binary f res-ch folder fn key locked-cb)))))

  (-bassoc [this key input]
    (let [file-name  (uuid key)


  store

(delete-store "/tmp/konserve-fs-migration-test")


(.getParent (io/file "/tmp/konserve-fs-migration-test"))

(clojure.string/replace-first "/tmp/abc"  "/" (System/getProperty "user.home"))


(def xy "/tmp/abc")

xy

(re-matches #"/" "/tmp/abc")

(clojure.string/replace-first "tmp/abc" "/" "")

(clojure.string/index-of "/tmp/abc" "/")

  store
  (->> (io/file "/tmp/konserve-fs-migration-test")
