diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-04-21 00:39:58 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-04-21 00:39:58 +0100 |
| commit | 022e1e006c8f51c19d1d8c5e20110fc8232c2013 (patch) | |
| tree | d8c86bab37395f688e8afa805bc90e710cd3dfac /guix-build-coordinator/datastore | |
| parent | cf5ebcbcf99e13030b04867dcb76b502e592304a (diff) | |
| download | build-coordinator-022e1e006c8f51c19d1d8c5e20110fc8232c2013.tar build-coordinator-022e1e006c8f51c19d1d8c5e20110fc8232c2013.tar.gz | |
Add some error handling to datastore-find-build-derivation-system
Not sure why I'm seeing errors here now, but I am.
Diffstat (limited to 'guix-build-coordinator/datastore')
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 34f9da5..fee846b 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -2642,7 +2642,13 @@ WHERE builds.id = :build_id" (let ((system (match (sqlite-step statement) - (#(system) system)))) + (#(system) system) + (#f + (error + (simple-format + #f + "no system for build ~A" + build-uuid)))))) (sqlite-reset statement) system))))) |