diff options
Diffstat (limited to 'src/cuirass/base.scm')
| -rw-r--r-- | src/cuirass/base.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm index e7c2597..471a15e 100644 --- a/src/cuirass/base.scm +++ b/src/cuirass/base.scm @@ -770,6 +770,11 @@ started)." (checkouts (fetch-inputs spec)) (eval-id (db-add-evaluation name checkouts))) (when eval-id + (db-add-event 'evaluation + (time-second (current-time time-utc)) + `((#:evaluation . ,eval-id) + (#:specification . ,name) + (#:in_progress . #t))) (compile-checkouts spec (filter compile? checkouts)) (spawn-fiber (lambda () |