diff options
Diffstat (limited to 'nonguix/modules.scm')
| -rw-r--r-- | nonguix/modules.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/nonguix/modules.scm b/nonguix/modules.scm index 570a8bb..24d4267 100644 --- a/nonguix/modules.scm +++ b/nonguix/modules.scm @@ -15,7 +15,7 @@ (define-module (nonguix modules) #:use-module (ice-9 match) - #:export (nonguix-module-name?)) + #:export (import-nonguix-module?)) (define (nonguix-module-name? name) "Return true if NAME (a list of symbols) denotes a Guix or Nonguix module." @@ -25,3 +25,11 @@ (('nonguix _ ...) #t) (('nongnu _ ...) #t) (_ #f))) + +;; Since we don't use deduplication support in 'populate-store', don't +;; import (guix store deduplication) and its dependencies, which +;; includes Guile-Gcrypt. +(define (import-nonguix-module? module) + "Return true if MODULE is not (guix store deduplication)" + (and (nonguix-module-name? module) + (not (equal? module '(guix store deduplication))))) |