aboutsummaryrefslogtreecommitdiff
path: root/guix/swh.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2024-02-20 14:30:41 +0100
committerLudovic Courtès <ludo@gnu.org>2024-03-09 18:55:49 +0100
commita813d6890b9ba69f6a738b43919a6359478868cd (patch)
tree83babcad37a288ec5fe696aeb9d5b8076690c335 /guix/swh.scm
parent47a0e5d9fb2209a27c2bffa163becbcb3356bf00 (diff)
downloadguix-a813d6890b9ba69f6a738b43919a6359478868cd.tar
guix-a813d6890b9ba69f6a738b43919a6359478868cd.tar.gz
swh: Add ‘type’ field to <visit>.
* guix/swh.scm (<visit>)[type]: New field. Change-Id: I7677984c7daef38d8f3c3bef19723fa0efb035ba
Diffstat (limited to 'guix/swh.scm')
-rw-r--r--guix/swh.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/guix/swh.scm b/guix/swh.scm
index 04cecd854c..83f67423c8 100644
--- a/guix/swh.scm
+++ b/guix/swh.scm
@@ -54,6 +54,7 @@
visit-snapshot-url
visit-status
visit-number
+ visit-type
visit-snapshot
snapshot?
@@ -312,6 +313,7 @@ FALSE-IF-404? is true, return #f upon 404 responses."
(url visit-url "origin_visit_url")
(snapshot-url visit-snapshot-url "snapshot_url" string*) ;string | #f
(status visit-status "status" string->symbol) ;'full | 'partial | 'ongoing
+ (type visit-type "type" string->symbol) ;'git | 'git-checkout | ...
(number visit-number "visit"))
;; <https://archive.softwareheritage.org/api/1/snapshot/4334c3ed4bb208604ed780d8687fe523837f1bd1/>