diff options
author | Christopher Baines <mail@cbaines.net> | 2021-02-12 08:21:51 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-02-12 08:21:51 +0000 |
commit | bb51e26380cb12f089370e3003aa7e1de9bdf2c0 (patch) | |
tree | b4b95ae71d6594fb3b9ef576d2970dc7a652f175 | |
parent | 88fbb69264a412ca2c7e6c4de024414444bd2df8 (diff) | |
download | build-coordinator-bb51e26380cb12f089370e3003aa7e1de9bdf2c0.tar build-coordinator-bb51e26380cb12f089370e3003aa7e1de9bdf2c0.tar.gz |
Fix use of assoc
-rw-r--r-- | guix-build-coordinator/agent.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index cdacdaa..c0043bd 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -99,7 +99,7 @@ (let ((build-id (assoc-ref build "uuid")) (derivation-name (or (assoc-ref build "derivation_name") (assoc-ref build "derivation-name"))) - (submit-outputs? (match (assoc build "submit_outputs") + (submit-outputs? (match (assoc "submit_outputs" build) ((_ . val) val) (#f #t)))) ; default to submitting outputs (log-msg lgr 'INFO |