Commit 278d451a authored by Eric Timmons's avatar Eric Timmons
Browse files

Allow specifying a port for HTTP git fetches

parent b084d882
Pipeline #751 passed with stages
in 7 minutes and 35 seconds
#+TITLE: CLPM Changelog #+TITLE: CLPM Changelog
* v0.0.5 - 2018-12-10
Allow specifying a port for http.
* v0.0.4 - 2018-12-10 * v0.0.4 - 2018-12-10
Allow http for a gitlab method. Allow http for a gitlab method.
* v0.0.3 - 2018-12-02 * v0.0.3 - 2018-12-02
......
...@@ -248,6 +248,8 @@ hostname or NIL." ...@@ -248,6 +248,8 @@ hostname or NIL."
(method (if remote-config (method (if remote-config
(gethash "method" remote-config "https") (gethash "method" remote-config "https")
"https")) "https"))
(port (when remote-config
(gethash "port" remote-config nil)))
(path (vcs-project/path project)) (path (vcs-project/path project))
(path-with.git (if (not (ends-with-subseq ".git" path)) (path-with.git (if (not (ends-with-subseq ".git" path))
(concatenate 'string path ".git") (concatenate 'string path ".git")
...@@ -270,6 +272,8 @@ hostname or NIL." ...@@ -270,6 +272,8 @@ hostname or NIL."
(concatenate 'string (concatenate 'string
"http://" "http://"
(source/host source) (source/host source)
(when port
(format nil ":~A" port))
"/" "/"
path-with.git)))))))) path-with.git))))))))
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
;; NOTE: If this form changes position in this file you *must* update clpm.asd as ;; NOTE: If this form changes position in this file you *must* update clpm.asd as
;; well. ;; well.
(defparameter *version* "0.0.4") (defparameter *version* "0.0.5")
(defparameter *git-version* "") (defparameter *git-version* "")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment