Clojure fn that recursively find directories on HDFS containing *.parquet files

gistfile1.clj

(defn dirs-with-parquet
  "Recursively find directories on HDFS that contain *.parquet files"
  [path]
  (let [fs (FileSystem/getLocal (Configuration.))
        directory (Path. path)
        dir? #(.isDirectory fs %)
        contains-parquet (fn [path] (not (empty? (.globStatus fs (Path. path "*.parquet")))))
        dirs (tree-seq dir?
                       (fn [path] (map #(.getPath %) (.listStatus fs path)))
                       directory)]
    (->> dirs
        (filter contains-parquet)
        (map #(.getPath (.toUri %))))))