mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

channels: Move ‘commit-short-id’ to (guix git).

Browse source 
* guix/channels.scm (commit-short-id): Move to…
* guix/git.scm (commit-short-id): … here.

Change-Id: If4b34b1d82b1aa5068d157f26e57e8aecc967061
This commit is contained in:
Ludovic Courtès 2024-03-31 23:17:29 +02:00
parent a57518484e
commit 088e181c0a
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/channels.scm
View file

@ -25,6 +25,7 @@ (define-module (guix channels)
url+commit->name
commit-difference
repository-info
commit-short-id
with-repository)
#:autoload (guix git-authenticate) (authenticate-repository)
#:autoload (guix openpgp) (openpgp-public-key-fingerprint
@ -339,9 +340,6 @@ (define (apply-patches checkout commit patches)
(apply-patch patch checkout))
(loop rest)))))
(define commit-short-id
(compose (cut string-take <> 7) oid->string commit-id))
(define* (authenticate-channel channel checkout commit
#:key (keyring-reference-prefix "origin/"))
"Authenticate the given COMMIT of CHANNEL, available at CHECKOUT, a

4
guix/git.scm
View file

@ -67,6 +67,7 @@ (define-module (guix git)
commit-relation
commit-descendant?
commit-id?
commit-short-id
remote-refs
@ -233,6 +234,9 @@ (define (commit-id? str)
(and (= (string-length str) 40)
(string-every char-set:hex-digit str)))
(define commit-short-id
(compose (cut string-take <> 7) oid->string commit-id))
(define (resolve-reference repository ref)
"Resolve the branch, commit or tag specified by REF, and return the
corresponding Git object."