   (-erase!
     [this]
     (d/future
-      (rm-r (landing-dir root))
-      (rm-r (blocks-dir root))
+      (run! rm-r (.listFiles (landing-dir root)))
+      (run! rm-r (.listFiles (blocks-dir root)))
       true)))
 
 

      (meta stats))))



;; ## File Store


    {:version layout-version}))


;; ### Landing Area

(defn- landing-dir
  "Construct the landing directory from the store root."
