From 77c588b4871e9ad8d0e8dda2fec133ed4112db79 Mon Sep 17 00:00:00 2001 From: Daniel Ziltener Date: Mon, 9 Dec 2019 13:59:33 +0100 Subject: [PATCH] Fixes --- src/com/sompani/onboarding.clj | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/com/sompani/onboarding.clj b/src/com/sompani/onboarding.clj index 7b78ea5..3110151 100644 --- a/src/com/sompani/onboarding.clj +++ b/src/com/sompani/onboarding.clj @@ -20,18 +20,18 @@ (defn- set-owner [path owner] (-> - (Files/getFileAttributeView path PosixFileAttributeView LinkOption/NOFOLLOW_LINKS) + (Files/getFileAttributeView path PosixFileAttributeView (into-array LinkOption [LinkOption/NOFOLLOW_LINKS])) (.setOwner owner))) (defn- set-group [path group] (-> - (Files/getFileAttributeView path PosixFileAttributeView LinkOption/NOFOLLOW_LINKS) + (Files/getFileAttributeView path PosixFileAttributeView (into-array LinkOption [LinkOption/NOFOLLOW_LINKS])) (.setGroup group))) (defn make-dirs! [{:keys [company-name]}] (let [attrs (Files/readAttributes (.toPath (io/file "srv/http/www.sompani.com")) PosixFileAttributeView - LinkOption/NOFOLLOW_LINKS) + (into-array LinkOption [LinkOption/NOFOLLOW_LINKS])) group (.group attrs) owner (.owner attrs)] (doseq [dir-str ["/srv/http/staging.%s.talent.careers-cache"