yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pull request #1046 from hugoduncan/feature/fix-repo-credentials

Browse source 
Fix repo credentials when no credentials in url
This commit is contained in:
Phil Hagelberg 2013-03-04 15:19:36 -08:00
commit b9a4147cf2
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/leiningen/deploy.clj
View file

@ -22,11 +22,12 @@
(defn add-auth-from-url
[[id settings]]
(if-let [url (utils/build-url id)]
(let [user-info (.getUserInfo url)
[username password] (and user-info (.split user-info ":"))]
[id (assoc settings :username username :password password)])
[id settings]))
(let [url (utils/build-url id)
user-info (and url (.getUserInfo url))
[username password] (and user-info (.split user-info ":"))]
(if username
[id (assoc settings :username username :password password)]
[id settings])))
(defn add-auth-interactively [[id settings]]
(if (or (and (:username settings) (some settings [:password :passphrase