Minor cleanup of make-repository.

technomancy · Jun 26, 2010 · 8eb54a9 · 8eb54a9
1 parent f5064be
commit 8eb54a9
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/src/leiningen/deps.clj b/src/leiningen/deps.clj
@@ -36,13 +36,13 @@
 (defn make-repository [[id settings]]
   (let [repo (RemoteRepository.)]
     (.setId repo id)
-    (cond
-     (string? settings) (.setUrl repo settings)
-     (map? settings) (do (.setUrl repo (:url settings))
-                         (let [server (doto (Server.)
-                                        (.setUsername (:username settings))
-                                        (.setPassword (:password settings)))]
-                           (.addAuthentication repo (Authentication. server)))))
+    (if (string? settings)
+      (.setUrl repo settings)
+      (let [{:keys [url username password]}]
+        (.setUrl repo url)
+        (.addAuthentication repo (Authentication. (doto (Server.)
+                                                    (.setUsername username)
+                                                    (.setPassword password))))))
     repo))
 
 (defn get-repository-list [project]