From e534675275621fae5ad9b4706aba7bc16016f9a5 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 25 Apr 2020 20:50:35 +0100
Subject: Fix datastore-find-build-output

I don't think when was really working, the procedure was returning <undefined>
when it shouldn't have been.
---
 guix-build-coordinator/datastore.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/guix-build-coordinator/datastore.scm b/guix-build-coordinator/datastore.scm
index 47275c8..7fc16df 100644
--- a/guix-build-coordinator/datastore.scm
+++ b/guix-build-coordinator/datastore.scm
@@ -51,6 +51,7 @@
                    datastore
                    (assq-ref build 'derivation-name))))
     (any (lambda (output)
-           (when (string=? (assq-ref output 'name) output-name)
-             (assq-ref output 'output)))
+           (if (string=? (assq-ref output 'name) output-name)
+               (assq-ref output 'output)
+               #f))
          outputs)))
-- 
cgit v1.2.3