diff options
Diffstat (limited to 'nar-herder/server.scm')
-rw-r--r-- | nar-herder/server.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/nar-herder/server.scm b/nar-herder/server.scm index 292502c..50db5a8 100644 --- a/nar-herder/server.scm +++ b/nar-herder/server.scm @@ -120,10 +120,11 @@ (define (read-string p) (utf8->string (read-byte-string p))) - (let*-values (((port pids) - (decompressed-port - (string->symbol compression) - input))) + (let ((port + pids + (decompressed-port + (string->symbol compression) + input))) ;; The decompressor can be an external program, so wait for it to ;; exit |