[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Ludovic Courtès |
Date: |
Mon, 23 Sep 2019 16:46:55 -0400 (EDT) |
branch: master
commit d27ff21e430cd38b02bd70a0dc8d60c9c2736f83
Author: Ludovic Courtès <address@hidden>
Date: Mon Sep 23 22:44:53 2019 +0200
templates: Fix type errors in build details page.
This is a followup to 858b6b8c8f2ae7b1ddaf4ae363147121be1f1fe8.
* src/cuirass/templates.scm (build-details)[blocking-outputs]: Fix type
errors when dealing with the result of 'derivation-build-plan'.
---
src/cuirass/templates.scm | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index 7cca2b2..c584dae 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -155,8 +155,12 @@
(drv (false-if-exception
(read-derivation-from-file
(assq-ref build #:derivation)))))
- (append-map derivation-input-output-paths
- (filter (compose derivation-log-file
derivation-input-path)
+ (append-map (lambda (drv)
+ (match (derivation->output-paths drv)
+ (((_ . items) ...)
+ items)))
+ (filter (compose derivation-log-file
+ derivation-file-name)
(with-store store
(derivation-build-plan
store (list (derivation-input drv))