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

        _       (assert version)
        handle  (impl/thing->handle config :else version)]
    (if (.isDirectory handle)
      (-> (for [d     (sort-by #(.getName %) (.listFiles handle))
                :when (.isDirectory d)]
            (t/->Platform version (.getName d)))
          succeed)
      (fail (str "No such version "
                 (t/thing->path 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))))))

