From 9175a4a0f0e1e32844476a271ca5273e0c862c74 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 11 May 2024 07:03:13 +0100
Subject: Set %file-port-name-canonicalization to 'none

As this might improve performance.
---
 bffe.scm | 33 +++++++++++++++++----------------
 1 file changed, 17 insertions(+), 16 deletions(-)

diff --git a/bffe.scm b/bffe.scm
index 5b3d428..405937e 100644
--- a/bffe.scm
+++ b/bffe.scm
@@ -57,20 +57,21 @@
     (open-log! lgr)
     (set-default-logger! lgr)
 
-    (let ((finished? (make-condition)))
-      (call-with-sigint
-       (lambda ()
-         (run-fibers
-          (lambda ()
-            (for-each start-submit-builds-fibers
-                      build)
+    (with-fluids ((%file-port-name-canonicalization 'none))
+      (let ((finished? (make-condition)))
+        (call-with-sigint
+         (lambda ()
+           (run-fibers
+            (lambda ()
+              (for-each start-submit-builds-fibers
+                        build)
 
-            (when web-server-args
-              (apply start-bffe-web-server
-                     `(,@web-server-args
-                       #:pid-file ,pid-file
-                       #:metrics-registry ,metrics-registry)))
-            (wait finished?))
-          #:hz 0
-          #:parallelism 1))
-       finished?))))
+              (when web-server-args
+                (apply start-bffe-web-server
+                       `(,@web-server-args
+                         #:pid-file ,pid-file
+                         #:metrics-registry ,metrics-registry)))
+              (wait finished?))
+            #:hz 0
+            #:parallelism 1))
+         finished?)))))
-- 
cgit v1.2.3