diff options
Diffstat (limited to 'guix')
-rw-r--r-- | guix/packages.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/guix/packages.scm b/guix/packages.scm index 0d5823ad5d..1d0cf229b7 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -35,6 +35,7 @@ package-source-method package-source-sha256 package-source-file-name + base32 package package? @@ -102,6 +103,17 @@ etc." (file-name package-source-file-name ; optional file name (default #f))) +(define-syntax base32 + (lambda (s) + "Return the bytevector corresponding to the given Nix-base32 +representation." + (syntax-case s () + ((_ str) + (string? (syntax->datum #'str)) + (with-syntax ((bv (nix-base32-string->bytevector + (syntax->datum #'str)))) + #''bv))))) + ;; A package. (define-record-type* <package> package make-package |