base: Fix type error in 'update-build-statuses!'.

This is a followup to be489a26c0.

* src/cuirass/base.scm (update-build-statuses!): Use DRV,
not (derivation-file-name DRV).
This commit is contained in:
Ludovic Courtès 2018-11-07 14:13:12 +01:00
parent d90751624c
commit 954f750639
1 changed files with 1 additions and 2 deletions

View File

@ -411,8 +411,7 @@ outputs are invalid, that they failed to build.)"
(if (any (cut valid-path? store <>) outputs)
(db-update-build-status! drv (build-status succeeded))
(db-update-build-status! drv
(if (log-file store
(derivation-file-name drv))
(if (log-file store drv)
(build-status failed)
(build-status failed-dependency)))))))