diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-08-29 16:02:29 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-09-02 15:25:01 +0200 |
| commit | d370cc73193f42fb86f08237b4ebb612ef822ae7 (patch) | |
| tree | 40586b22b15d6ae711bd9fe5f359d28224857067 /guix/swh.scm | |
| parent | ba1c1853a79a5930ca7db7a6b368859f805df98d (diff) | |
| download | guix-d370cc73193f42fb86f08237b4ebb612ef822ae7.tar guix-d370cc73193f42fb86f08237b4ebb612ef822ae7.tar.gz | |
swh: Make 'commit-id?' public.
* guix/swh.scm (commit-id?): Make public.
Diffstat (limited to 'guix/swh.scm')
| -rw-r--r-- | guix/swh.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/swh.scm b/guix/swh.scm index 42f38ee048..01648a1ebe 100644 --- a/guix/swh.scm +++ b/guix/swh.scm @@ -105,6 +105,8 @@ request-cooking vault-fetch + commit-id? + swh-download)) ;;; Commentary: @@ -568,7 +570,7 @@ requested bundle cooking, waiting for completion...~%")) (define (commit-id? reference) "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) (string-every char-set:hex-digit reference))) |