diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-27 13:21:11 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-27 14:17:10 +0200 |
| commit | 24bfb61e8e5a0a65ec54d8a3c2aaa78876a01efb (patch) | |
| tree | 60f47deb643885196d50d40829acfb7aa451715c /src/cuirass/database.scm | |
| parent | 5c0a2b57798dd059806851205a3f16d19d9ecf12 (diff) | |
| download | cuirass-24bfb61e8e5a0a65ec54d8a3c2aaa78876a01efb.tar cuirass-24bfb61e8e5a0a65ec54d8a3c2aaa78876a01efb.tar.gz | |
schema: Builds: Add 'evaluation' column.
* src/schema.sql (Builds): Add 'evaluation' column.
* src/cuirass/database.scm (db-add-build): Adapt.
* src/cuirass/base.scm (build-packages): Likewise.
Diffstat (limited to 'src/cuirass/database.scm')
| -rw-r--r-- | src/cuirass/database.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index a314704..b831833 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -180,8 +180,10 @@ string." (define (db-add-build db build) "Store BUILD in database DB." (sqlite-exec db "\ -INSERT INTO Builds (derivation, log, output) VALUES ('~A', '~A', '~A');" +INSERT INTO Builds (derivation, evaluation, log, output)\ + VALUES ('~A', '~A', '~A', '~A');" (assq-ref build #:derivation) + (assq-ref build #:eval-id) (assq-ref build #:log) (assq-ref build #:output)) (last-insert-rowid db)) |