aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-09-23 22:44:53 +0200
committerLudovic Courtès <ludo@gnu.org>2019-09-23 22:44:53 +0200
commitd27ff21e430cd38b02bd70a0dc8d60c9c2736f83 (patch)
tree363f6442c9a0bce47638b97bd3f213ede292b393 /src
parent6cf84a43bb6160e11ede96820a8bc563aa7461ef (diff)
downloadcuirass-d27ff21e430cd38b02bd70a0dc8d60c9c2736f83.tar
cuirass-d27ff21e430cd38b02bd70a0dc8d60c9c2736f83.tar.gz
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'.
Diffstat (limited to 'src')
-rw-r--r--src/cuirass/templates.scm8
1 files 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))