diff options
| author | Maxim Cournoyer <maxim@guixotic.coop> | 2026-06-09 21:10:53 +0900 |
|---|---|---|
| committer | Maxim Cournoyer <maxim@guixotic.coop> | 2026-06-24 14:29:03 +0900 |
| commit | f9fc0c7dd3be36b6a0cd0add7a3073010819e25b (patch) | |
| tree | cf652e56c7fac656fa2fc7a03b7dcec1e37da5c4 | |
| parent | 7ee79c9e82245b83ef76c84b67466ad93bea84aa (diff) | |
import: npm-binary: Fix byte-compilation warnings.
Use #:autoload in define-module instead of module-autoload! to load the semver
module.
Change-Id: I947b5d6baf1a9e8af9227a15ee5eb1dca0dd12ef
| -rw-r--r-- | guix/import/npm-binary.scm | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/guix/import/npm-binary.scm b/guix/import/npm-binary.scm index e299c259601..18a80876c41 100644 --- a/guix/import/npm-binary.scm +++ b/guix/import/npm-binary.scm | |||
| @@ -35,6 +35,10 @@ | |||
| 35 | #:use-module (ice-9 receive) | 35 | #:use-module (ice-9 receive) |
| 36 | #:use-module (ice-9 regex) | 36 | #:use-module (ice-9 regex) |
| 37 | #:use-module (json) | 37 | #:use-module (json) |
| 38 | ;; Autoload Guile-Semver so we only have a soft dependency. | ||
| 39 | #:autoload (semver) (string->semver semver? semver->string semver=? semver>?) | ||
| 40 | #:autoload (semver ranges) ( *semver-range-any* string->semver-range | ||
| 41 | semver-range-contains?) | ||
| 38 | #:use-module (srfi srfi-1) | 42 | #:use-module (srfi srfi-1) |
| 39 | #:use-module (srfi srfi-2) | 43 | #:use-module (srfi srfi-2) |
| 40 | #:use-module (srfi srfi-26) | 44 | #:use-module (srfi srfi-26) |
| @@ -50,14 +54,6 @@ | |||
| 50 | make-versioned-package | 54 | make-versioned-package |
| 51 | name+version->symbol)) | 55 | name+version->symbol)) |
| 52 | 56 | ||
| 53 | ;; Autoload Guile-Semver so we only have a soft dependency. | ||
| 54 | (module-autoload! (current-module) | ||
| 55 | '(semver) | ||
| 56 | '(string->semver semver? semver->string semver=? semver>?)) | ||
| 57 | (module-autoload! (current-module) | ||
| 58 | '(semver ranges) | ||
| 59 | '(*semver-range-any* string->semver-range semver-range-contains?)) | ||
| 60 | |||
| 61 | ;; Dist-tags | 57 | ;; Dist-tags |
| 62 | (define-json-mapping <dist-tags> make-dist-tags dist-tags? | 58 | (define-json-mapping <dist-tags> make-dist-tags dist-tags? |
| 63 | json->dist-tags | 59 | json->dist-tags |
