aboutsummaryrefslogtreecommitdiff
path: root/tw/services/docker.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tw/services/docker.scm')
-rw-r--r--tw/services/docker.scm9
1 files changed, 5 insertions, 4 deletions
diff --git a/tw/services/docker.scm b/tw/services/docker.scm
index 0f982836..943cf105 100644
--- a/tw/services/docker.scm
+++ b/tw/services/docker.scm
@@ -107,11 +107,12 @@ system that this container relies on."))
,@extra-requirements))
(documentation (format #f "Run a Docker container called ~s from the image ~s."
(maybe-value name) image))
+ (modules `(((srfi srfi-1) #:select (every))
+ ((srfi srfi-26) #:select (cut))
+ (ice-9 popen)
+ (ice-9 textual-ports)
+ ,@%default-modules))
(start #~(lambda ()
- (use-modules ((srfi srfi-1) #:select (every))
- ((srfi srfi-26) #:select (cut))
- (ice-9 popen)
- (ice-9 textual-ports))
(let* ((hex (char-set #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9
#\a #\b #\c #\d #\e #\f #\A #\B #\C #\D #\E #\F))
(pipe