summary refs log tree commit diff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-11-10 17:54:57 +0100
committerLudovic Courtès <ludo@gnu.org>2016-11-10 18:01:44 +0100
commit5e7eaccb14382b2d49bc8b4fc10fc57876d6c56f (patch)
tree0301d16f01a8f0f5d89f805950be5d87547c00e0 /gnu
parent9e4e431e049fae3f1121c3be22cf13b174404ba8 (diff)
downloadguix-5e7eaccb14382b2d49bc8b4fc10fc57876d6c56f.tar.gz
linux-container: Use 'source-module-closure' when generating the script.
* gnu/system/linux-container.scm (container-script)[script]: Use
'source-module-closure' in 'with-imported-modules' form.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/system/linux-container.scm13
1 files changed, 5 insertions, 8 deletions
diff --git a/gnu/system/linux-container.scm b/gnu/system/linux-container.scm
index d3c0036f47..189f9efa79 100644
--- a/gnu/system/linux-container.scm
+++ b/gnu/system/linux-container.scm
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
+;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -24,6 +25,7 @@
   #:use-module (guix gexp)
   #:use-module (guix derivations)
   #:use-module (guix monads)
+  #:use-module (guix modules)
   #:use-module (gnu build linux-container)
   #:use-module (gnu services)
   #:use-module (gnu system)
@@ -87,14 +89,9 @@ that will be shared with the host system."
                                   #:container? #t)))
 
       (define script
-        (with-imported-modules '((guix config)
-                                 (guix utils)
-                                 (guix combinators)
-                                 (guix build utils)
-                                 (guix build syscalls)
-                                 (guix build bournish)
-                                 (gnu build file-systems)
-                                 (gnu build linux-container))
+        (with-imported-modules (source-module-closure
+                                '((guix build utils)
+                                  (gnu build linux-container)))
           #~(begin
               (use-modules (gnu build linux-container)
                            (guix build utils))