From 2bbdcbc147417539fa8dd57e06da1b51dfab13dd Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 23 Mar 2024 13:31:44 +0000
Subject: Update let style

---
 nar-herder/server.scm | 9 +++++----
 1 file 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
-- 
cgit v1.2.3