From d2cc01bb16cda21201a9a57f9d9b4a9ef0e7a7ed Mon Sep 17 00:00:00 2001 From: Ian McEwen Date: Fri, 18 Oct 2024 16:41:41 -0700 Subject: [PATCH] Fix user-exists? arity issue --- src/data_info/services/groups.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/data_info/services/groups.clj b/src/data_info/services/groups.clj index 7f78081..dc2d7f4 100644 --- a/src/data_info/services/groups.clj +++ b/src/data_info/services/groups.clj @@ -40,7 +40,7 @@ ;; still be updated if a few don't exist in irods ;(validators/all-users-exist cm members) (let [current-members (set (users/list-group-members cm group-name)) - desired-members (set (map di-users/ensure-qualified (filter users/user-exists? members))) + desired-members (set (map di-users/ensure-qualified (filter #(users/user-exists? cm %) members))) members-to-add (cset/difference desired-members current-members) members-to-remove (cset/difference current-members desired-members)