diff options
author | Christopher Baines <mail@cbaines.net> | 2019-10-28 07:56:51 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-11-28 18:10:31 +0000 |
commit | 1e035637b52f9788627164ad438bdeecf587733a (patch) | |
tree | 26dbbd736889e59076904cbab50bb7f16c06b1bc /src/cuirass/database.scm | |
parent | 1311893e2f5b6e1e16c474d018901d4ff4a31234 (diff) | |
download | cuirass-1e035637b52f9788627164ad438bdeecf587733a.tar cuirass-1e035637b52f9788627164ad438bdeecf587733a.tar.gz |
Support publishing evaluation eventssupport-publishing-build-events
* src/cuirass/base.scm (process-specs): Record the creation of new
evaluations as events.
* src/cuirass/database.scm (db-set-evaluation-done): Record when evaluations
finish as an event.
* src/cuirass/http.scm (url-handler): Add a new /api/evaluation-events page.
Diffstat (limited to 'src/cuirass/database.scm')
-rw-r--r-- | src/cuirass/database.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 8cb7465..02f9f9c 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -419,7 +419,11 @@ VALUES (" spec-name ", true);") (define (db-set-evaluation-done eval-id) (with-db-critical-section db (sqlite-exec db "UPDATE Evaluations SET in_progress = false -WHERE id = " eval-id ";"))) +WHERE id = " eval-id ";") + (db-add-event 'evaluation + (time-second (current-time time-utc)) + `((#:evaluation . ,eval-id) + (#:in_progress . #f))))) (define-syntax-rule (with-database body ...) "Run BODY with %DB-CHANNEL being dynamically bound to a channel implementing |