diff options
| -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) |