     (when-not (fs/exists? basepath)
       (fs/create-dir basepath))
 
-    (->LocalFileSystemBackend basepath baseuri executor
-                              (dissoc options :baseuri :basedir :executor))))
+    (->LocalFileSystemBackend basepath baseuri executor)))

  (let [supplier (reify Supplier (get [_] (func)))]
     (CompletableFuture/supplyAsync supplier executor)))


(defrecord LocalFileSystemBackend [^Path base
                                   ^URI baseuri
                                   ^ExecutorService executor
                                   options]
  pt/IPublicStorage
  (-public-uri [_ path]
    (.resolve baseuri (str path)))

  pt/IStorage
  (-save [this path content]
    (submit executor #(save this base path content)))

  (-delete [this path]
    (submit executor #(delete this base path)))

  (-exists? [this path]
    (try

                        {:path (str path)})))
      fullpath)))

(defn- save
  [base path content]
  (let [^Path path (pt/-path path)
        ^Path fullpath (normalize-path base path)]
    (when-not (fs/exists? (.getParent fullpath))
      (fs/create-dir (.getParent fullpath)))
    (loop [iteration nil]
