diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-03-23 13:31:44 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-03-23 13:31:44 +0000 |
| commit | 2bbdcbc147417539fa8dd57e06da1b51dfab13dd (patch) | |
| tree | 07bb503cd29d12b2c8553390e7652c1458c2c01a | |
| parent | 4f86abedc09227e6da5acc435ac137c5f970dc5b (diff) | |
| download | nar-herder-2bbdcbc147417539fa8dd57e06da1b51dfab13dd.tar nar-herder-2bbdcbc147417539fa8dd57e06da1b51dfab13dd.tar.gz | |
Update let style
| -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 |