         _      (assert thing)
         handle (impl/thing->handle config :else thing)]
     (if (.isDirectory handle)
-      (-> (for [d     (.listFiles handle)
-                :when (.isDirectory d)]
-            (t/->Artifact thing (.getName d)))
-          succeed)
-      (fail (str "No such group "
-                 (t/thing->path thing))))))
+      (succeed
+       (for [d     (.listFiles handle)
+             :when (.isDirectory d)]
+         (t/->Artifact thing (.getName d))))
+      (->> thing
+           t/thing->path
+           (str "No such group ")
+           fail))))
 
 (defmethod api/-list-versions ::fs/Config [config thing]
   (let [thing    (t/ensure-thing thing)

(defmethod api/-list-groups ::fs/Config [config]
  (let [handle (io/file (:docs config))]
    (if (.isDirectory handle)
      (-> (for [d     (.listFiles handle)
                :when (.isDirectory d)]
            (t/->Group (.getName d)))
          succeed)
      (fail "Could not find store directory"))))

(defmethod api/-list-artifacts ::fs/Config [config thing]

        _         (assert namespace)
        handle    (impl/thing->handle config :else namespace)]
    (if (.isDirectory handle)
      (succeed
       (for [d     (.listFiles handle)
             :when (.isDirectory d)]
         (t/->Def namespace (.getName d))))
      (fail (str "No such namespace "
                 (t/thing->path thing))))))

