commit b7f8ae518a8cce3198bd2a93b1352ab1667534aa parent 510c28c0a7d668f7704abcb1c9de876a93461cdf Author: Florian Dold <florian.dold@gmail.com> Date: Mon, 26 Nov 2018 18:54:22 +0100 fix Diffstat:
| M | guix/config.scm | | | 29 | ++++++++++++++++------------- |
1 file changed, 16 insertions(+), 13 deletions(-)
diff --git a/guix/config.scm b/guix/config.scm @@ -55,19 +55,22 @@ (define (concat-local-files outname files) (gexp->derivation outname - #~(begin - (define (concat-ports pi po) - (unless (port-eof? pi) - (let ((chunk (get-bytvector-some pi))) - (put-bytevector po chunk) - (concat-ports pi po)))) - (define (concat-to-output src) - (call-with-output-file #$output - (lambda (po) - (call-with-input-file src - (lambda (pi) - (concat-ports pi po)))))) - (for-each concat-to-output files)))) + (with-imported-modules + '((ice-9 binary-ports)) + #~(begin + (use-modules (ice-9 binary-ports)) + (define (concat-ports pi po) + (unless (port-eof? pi) + (let ((chunk (get-bytvector-some pi))) + (put-bytevector po chunk) + (concat-ports pi po)))) + (define (concat-to-output src) + (call-with-output-file #$output + (lambda (po) + (call-with-input-file src + (lambda (pi) + (concat-ports pi po)))))) + (for-each concat-to-output files)))) ;; this includes defaults, so 'fastcgi' related files: (define %nginx-mime-types