From 4f838f910183dcce9b30d264bb512d01e79d6d17 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 1 Feb 2023 13:32:38 +0000
Subject: Make sure to use suspendable ports

This will allow setting timeouts for network activity.
---
 scripts/nar-herder.in | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'scripts')

diff --git a/scripts/nar-herder.in b/scripts/nar-herder.in
index 346279a..e62f60f 100644
--- a/scripts/nar-herder.in
+++ b/scripts/nar-herder.in
@@ -39,6 +39,7 @@
              (ice-9 ftw)
              (ice-9 match)
              (ice-9 format)
+             (ice-9 suspendable-ports)
              (web uri)
              (web client)
              (web response)
@@ -63,6 +64,8 @@
              (nar-herder mirror)
              (nar-herder server))
 
+(install-suspendable-ports!)
+
 (define %valid-log-levels
   '(DEBUG INFO WARN ERROR))
 
-- 
cgit v1.2.3