swh: Add ‘type’ field to <visit>.
* guix/swh.scm (<visit>)[type]: New field. Change-Id: I7677984c7daef38d8f3c3bef19723fa0efb035ba
This commit is contained in:
parent
47a0e5d9fb
commit
a813d6890b
1 changed files with 2 additions and 0 deletions
|
@ -54,6 +54,7 @@
|
||||||
visit-snapshot-url
|
visit-snapshot-url
|
||||||
visit-status
|
visit-status
|
||||||
visit-number
|
visit-number
|
||||||
|
visit-type
|
||||||
visit-snapshot
|
visit-snapshot
|
||||||
|
|
||||||
snapshot?
|
snapshot?
|
||||||
|
@ -312,6 +313,7 @@ FALSE-IF-404? is true, return #f upon 404 responses."
|
||||||
(url visit-url "origin_visit_url")
|
(url visit-url "origin_visit_url")
|
||||||
(snapshot-url visit-snapshot-url "snapshot_url" string*) ;string | #f
|
(snapshot-url visit-snapshot-url "snapshot_url" string*) ;string | #f
|
||||||
(status visit-status "status" string->symbol) ;'full | 'partial | 'ongoing
|
(status visit-status "status" string->symbol) ;'full | 'partial | 'ongoing
|
||||||
|
(type visit-type "type" string->symbol) ;'git | 'git-checkout | ...
|
||||||
(number visit-number "visit"))
|
(number visit-number "visit"))
|
||||||
|
|
||||||
;; <https://archive.softwareheritage.org/api/1/snapshot/4334c3ed4bb208604ed780d8687fe523837f1bd1/>
|
;; <https://archive.softwareheritage.org/api/1/snapshot/4334c3ed4bb208604ed780d8687fe523837f1bd1/>
|
||||||
|
|
Reference in a new issue