Defer to Pomegranate repo policy defaults

puchka · May 19, 2019 · d18c93a · d18c93a
1 parent 0019025
commit d18c93a
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/leiningen-core/src/leiningen/core/classpath.clj b/leiningen-core/src/leiningen/core/classpath.clj
@@ -245,8 +245,10 @@
           :non-proxy-hosts (get-non-proxy-hosts)})))))
 
 (defn- update-policies [update checksum [repo-name opts]]
-  [repo-name (merge {:update (or update :daily)
-                     :checksum (or checksum :fail)} opts)])
+  (let [project-policies (cond-> {}
+                           update (assoc :update update)
+                           checksum (assoc :checksum checksum))]
+    [repo-name (merge project-policies opts)]))
 
 (defn- print-failures [e]
   (doseq [result (.getArtifactResults (.getResult e))