diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-11-07 14:13:12 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-11-07 15:28:05 +0100 |
| commit | 954f7506390c9cc0c82555777d40e890057494e0 (patch) | |
| tree | a818b5e084c07e3a6bc3954eeb23a0c65af3a0cc | |
| parent | d90751624c03f913360bff6a8c208ce19e683235 (diff) | |
| download | cuirass-954f7506390c9cc0c82555777d40e890057494e0.tar cuirass-954f7506390c9cc0c82555777d40e890057494e0.tar.gz | |
base: Fix type error in 'update-build-statuses!'.
This is a followup to be489a26c0e6a5f23a48142a87728a0ec8bc3c9c.
* src/cuirass/base.scm (update-build-statuses!): Use DRV,
not (derivation-file-name DRV).
| -rw-r--r-- | src/cuirass/base.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm index fe0ec6c..2570a46 100644 --- a/src/cuirass/base.scm +++ b/src/cuirass/base.scm @@ -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))))))) |