Commit e4008300 authored by Eric Timmons's avatar Eric Timmons
Browse files

Change :repository to :url in :git directives

parent faf971d8
Pipeline #4603 passed with stages
in 30 minutes and 59 seconds
......@@ -113,10 +113,10 @@ source."
instance."
(unless (equal *clpmfile-version* "0.4")
(error "This form requires API-VERSION 0.3"))
(destructuring-bind (name &key repository branch commit tag systems)
(destructuring-bind (name &key url branch commit tag systems)
args
(assert repository)
(let* ((repo-description (list :git :repository repository))
(assert url)
(let* ((repo-description (list :git :url url))
(repo (make-repo-from-description repo-description))
(vcs-sources-ht (context-vcs-sources-ht clpmfile))
(source (ensure-gethash (repo-to-form repo) vcs-sources-ht
......
......@@ -19,7 +19,7 @@
(defclass plain-git-repo (git-repo)
((repository
:initarg :repository
:initarg :url
:reader git-repo-uri-string)))
(defmethod git-repo-credentials ((repo plain-git-repo))
......@@ -70,4 +70,4 @@
(defmethod repo-to-form ((repo plain-git-repo))
`(:git
:repository ,(git-repo-uri-string repo)))
:url ,(git-repo-uri-string repo)))
......@@ -100,11 +100,11 @@ with zero configuration or helpers needed (other than ASDF, of course).
the bundle.
#+begin_src common-lisp
(name &key repository branch commit tag systems)
(name &key url branch commit tag systems)
#+end_src
+ ~name~ :: must be a string, unique in the file.
+ ~:repository~ :: must be a string, the url of the repository.
+ ~:url~ :: must be a string, the url of the repository.
+ ~:branch~ :: If specified, must be a string naming the branch to use. If
none of branch, commit, or tag are specified, the branch defaults to the
default branch from the server.
......
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