diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-12-24 15:50:54 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-01-16 11:51:03 +0000 |
| commit | 681af17460fa34916ac40589cccdcca7222249af (patch) | |
| tree | 627bcd3b60a2835d0f6bed67db47dbdc664425ee /tests/challenge.scm | |
| parent | 35e0c0cf1d2a749d5c3255ef50cd5bfb014bca39 (diff) | |
guix: Move narinfo code from substitute script to module.
This separation between the code for dealing with narinfos from the code doing
that for a purpose should make things clearer, and better support components
other that the substitute script in using this code.
This is just moving the code around, no code should have been significantly
changed.
* guix/scripts/substitute.scm (<narinfo>): Move record type to (guix narinfo).
(fields->alist, narinfo-hash-algorithm+value, narinfo-hash->sha256,
narinfo-signature->canonical-sexp, narinfo-maker, read-narinfo,
narinfo-sha256, valid-narinfo?, write-narinfo, narinfo->string,
string->narinfo, equivalent-narinfo?, supported-compression?,
compresses-better?, narinfo-best-uri): Move procedures to (guix narinfo).
(%compression-methods): Move variable to (guix narinfo).
* guix/narinfo.scm: New file.
* Makefile.am (MODULES): Add it.
* po/guix/POTFILES.in: Add 'guix/narinfo.scm'.
Diffstat (limited to 'tests/challenge.scm')
| -rw-r--r-- | tests/challenge.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/challenge.scm b/tests/challenge.scm index 9c6d6e0d58f..fdd5fd238e8 100644 --- a/tests/challenge.scm +++ b/tests/challenge.scm | |||
| @@ -27,8 +27,8 @@ | |||
| 27 | #:use-module (guix packages) | 27 | #:use-module (guix packages) |
| 28 | #:use-module (guix gexp) | 28 | #:use-module (guix gexp) |
| 29 | #:use-module (guix base32) | 29 | #:use-module (guix base32) |
| 30 | #:use-module (guix narinfo) | ||
| 30 | #:use-module (guix scripts challenge) | 31 | #:use-module (guix scripts challenge) |
| 31 | #:use-module (guix scripts substitute) | ||
| 32 | #:use-module ((guix build utils) #:select (find-files)) | 32 | #:use-module ((guix build utils) #:select (find-files)) |
| 33 | #:use-module (gnu packages bootstrap) | 33 | #:use-module (gnu packages bootstrap) |
| 34 | #:use-module (srfi srfi-1) | 34 | #:use-module (srfi srfi-1) |
