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

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

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

