nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

swh: Make 'commit-id?' public. 

* guix/swh.scm (commit-id?): Make public.
This commit is contained in:
Ludovic Courtès 2019-08-29 16:02:29 +02:00
parent ba1c1853a7
commit d370cc7319
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guix/swh.scm
View File

@ -105,6 +105,8 @@
request-cooking request-cooking
vault-fetch vault-fetch
commit-id?
swh-download)) swh-download))
;;; Commentary: ;;; Commentary:
@ -568,7 +570,7 @@ requested bundle cooking, waiting for completion...~%"))
(define (commit-id? reference) (define (commit-id? reference)
"Return true if REFERENCE is likely a commit ID, false otherwise---e.g., if "Return true if REFERENCE is likely a commit ID, false otherwise---e.g., if
it is a tag name." it is a tag name. This is based on a simple heuristic so use with care!"
(and (= (string-length reference) 40) (and (= (string-length reference) 40)
(string-every char-set:hex-digit reference))) (string-every char-set:hex-digit reference)))