diff options
author | Christopher Baines <mail@cbaines.net> | 2023-04-21 00:30:01 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-04-21 00:30:01 +0100 |
commit | cf5ebcbcf99e13030b04867dcb76b502e592304a (patch) | |
tree | cdac652d56285bfe5bac80e7961f30ee0446504d /guix-build-coordinator/datastore/sqlite.scm | |
parent | 500d9f69b57f0f53403b06aef4629c5cc75faa31 (diff) | |
download | build-coordinator-cf5ebcbcf99e13030b04867dcb76b502e592304a.tar build-coordinator-cf5ebcbcf99e13030b04867dcb76b502e592304a.tar.gz |
Add error handling around some date parsing
Diffstat (limited to 'guix-build-coordinator/datastore/sqlite.scm')
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index c19468c..34f9da5 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -2526,12 +2526,26 @@ WHERE derivation_outputs.derivation_id = builds.derivation_id)")) (created-at . ,(if (string? created_at) (match (strptime "%F %T" created_at) - ((parts . _) parts)) + ((parts . _) parts) + (#f + (error + (simple-format + #f + "error parsing created_at ~A (~A)" + created_at + uuid)))) #f)) (end-time . ,(if (string? end_time) (match (strptime "%F %T" end_time) - ((parts . _) parts)) + ((parts . _) parts) + (#f + (error + (simple-format + #f + "error parsing end_time ~A (~A)" + end_time + uuid)))) #f))))) statement))) (sqlite-finalize statement) |