   (let [supplier (reify Supplier (get [_] (func)))]
      (CompletableFuture/supplyAsync supplier executor)))
 
-
 (defrecord LocalFileSystemBackend [^Path base
                                    ^URI baseuri
-                                   ^ExecutorService executor
-                                   options]
+                                   ^ExecutorService executor]
   pt/IPublicStorage
   (-public-uri [_ path]
     (.resolve baseuri (str path)))
 
   pt/IStorage
-  (-save [this path content]
-    (submit executor #(save this base path content)))
+  (-save [_ path content]
+    (submit executor #(save base path content)))
 
-  (-delete [this path]
-    (submit executor #(delete this base path)))
+  (-delete [_ path]
+    (submit executor #(delete base path)))
 
   (-exists? [this path]
     (try

    (when-not (fs/exists? basepath)
      (fs/create-dir basepath))

    (->LocalFileSystemBackend basepath baseuri executor
                              (dissoc options :baseuri :basedir :executor))))

            (fs/relativize candidate base)))))))

(defn- delete
  [base path]
  (let [path (->> (pt/-path path)
                  (normalize-path base))]
    (try
