ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

swh: Add ‘swh-download-directory-by-nar-hash’.

Browse source 
This allows us to take advantage of content addressing by giving SWH the
expected nar hash.

* guix/swh.scm (swh-download-directory-by-nar-hash): New procedure.

Change-Id: I0494ee15a3cde390a22552de7c2246e0314ba7b5
This commit is contained in:
Ludovic Courtès 2024-01-25 23:27:51 +01:00
parent be773bd192
commit 1b72e14307
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 24 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
guix/swh.scm
View file

@ -123,6 +123,7 @@ (define-module (guix swh)
commit-id?
swh-download-directory
swh-download-directory-by-nar-hash
swh-download))
;;; Commentary:
@ -805,3 +806,26 @@ (define* (swh-download url reference output
"SWH: revision ~s originating from ~a could not be found~%"
reference url)
#f)))
(define* (swh-download-directory-by-nar-hash hash algorithm output
#:key
(log-port (current-error-port)))
"Download from Software Heritage the directory with the given nar HASH for
ALGORITHM (a symbol such as 'sha256), and unpack it in OUTPUT. Return #t on
success and #f on failure.
This procedure uses the \"vault\", which contains \"cooked\" directories in
the form of tarballs. If the requested directory is not cooked yet, it will
wait until it becomes available, which could take several minutes."
(match (lookup-directory-by-nar-hash hash algorithm)
(#f
(format log-port
"SWH: directory with nar-~a hash ~a not found~%"
algorithm (bytevector->base16-string hash))
#f)
(swhid
(format log-port "SWH: found directory with nar-~a hash ~a at '~a'~%"
algorithm (bytevector->base16-string hash) swhid)
(swh-download-archive swhid output
#:archive-type 'flat ;SWHID denotes a directory
#:log-port log-port))))