diff mbox series

[bug#37224,3/4] swh: Make 'commit-id?' public.

Message ID 20190829232101.8153-3-ludo@gnu.org
State Accepted
Headers show
Series Add 'archival' checker for 'guix lint' | expand

Commit Message

Ludovic Courtès Aug. 29, 2019, 11:21 p.m. UTC 
* guix/swh.scm (commit-id?): Make public.
---
 guix/swh.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)
diff mbox series

Patch

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)))