AE-2274: Refactor existence checking to be passed as an option enclos…

…ed in a map

etp-core/etp-backend/src/main/clj/solita/common/aws/s3.clj

@@ -17,13 +17,13 @@
 
 (defn get-object-head
   ([aws-s3-client key]
-   (get-object-head aws-s3-client key false))
-  ([{:keys [client bucket]} key checking-for-existence?]
+   (get-object-head aws-s3-client key {:checking-for-existence? false}))
+  ([{:keys [client bucket]} key options]
    (aws.utils/invoke client
                      :HeadObject
                      {:Bucket bucket
                       :Key    key}
-                     checking-for-existence?)))
+                     options)))
 
 (defn delete-object [{:keys [client bucket]} key]
   (aws.utils/invoke client

etp-core/etp-backend/src/main/clj/solita/common/aws/utils.clj

@@ -11,8 +11,8 @@
 
 (defn invoke
   ([client op request]
-   (invoke client op request false))
-  ([client op request checking-for-existence?]
+   (invoke client op request {:checking-for-existence? false}))
+  ([client op request {:keys [checking-for-existence?]}]
    (let [result (aws/invoke client {:op      op
                                     :request request})]
      (if (contains? result :cognitect.anomalies/category)

etp-core/etp-backend/src/main/clj/solita/etp/service/file.clj

@@ -25,7 +25,7 @@
 
 (defn file-exists? [aws-s3-client key]
   (try
-    (s3/get-object-head aws-s3-client key true)
+    (s3/get-object-head aws-s3-client key {:checking-for-existence? true})
     true
     (catch ExceptionInfo e
       (let [{:keys [type]} (ex-data e)]