 (ns fhofherr.clj-io.files
   (:refer-clojure :exclude [exists?])
-  (:require [clojure.java.io :as io])
+  (:require [clojure.java.io :as io]
+            [clojure.set :as s])
   (:import [java.nio.file CopyOption
             FileVisitResult
             Files

  [path expected-perms]
  (->> path
       (posix-permissions)
       (clojure.set/intersection expected-perms)
       (not-empty)
       (boolean)))


                      (into $ args)
                      (partition 2 $)
                      (map (fn [[t p]] (parse-perms p t)) $)
                      (apply s/union $)))]
    (set-posix-permissions path perms))
  path)

