diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-04-08 20:57:39 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-04-10 20:34:47 +0100 |
| commit | 3bde300af864e892aa84adac17f8d899bc33cae4 (patch) | |
| tree | 9114cc03e4a0e797fc9973aa79c72bd7b78bc6d8 | |
| parent | b07fe25a9278abbd22edae0f697d0af76762e93b (diff) | |
| download | build-coordinator-3bde300af864e892aa84adac17f8d899bc33cae4.tar build-coordinator-3bde300af864e892aa84adac17f8d899bc33cae4.tar.gz | |
Implement a generic datastore-update method
| -rw-r--r-- | guix-build-coordinator/datastore/abstract.scm | 2 | ||||
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 8 |
2 files changed, 10 insertions, 0 deletions
diff --git a/guix-build-coordinator/datastore/abstract.scm b/guix-build-coordinator/datastore/abstract.scm index 05820e4..307505b 100644 --- a/guix-build-coordinator/datastore/abstract.scm +++ b/guix-build-coordinator/datastore/abstract.scm @@ -1,6 +1,7 @@ (define-module (guix-build-coordinator datastore abstract) #:use-module (oop goops) #:export (<abstract-datastore> + datastore-update datastore-store-derivation datastore-store-build)) @@ -8,3 +9,4 @@ (define-generic datastore-store-derivation) (define-generic datastore-store-build) +(define-generic datastore-update) diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 8a88c76..bc6fd0d 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -9,6 +9,7 @@ #:use-module (guix-build-coordinator config) #:use-module (guix-build-coordinator datastore abstract) #:export (sqlite-datastore + datastore-update datastore-store-derivation datastore-store-build)) @@ -62,6 +63,13 @@ (sqlite-exec db "COMMIT TRANSACTION;"))) #t) +(define-method (datastore-update + (datastore <sqlite-datastore>)) + (run-sqitch + (slot-ref datastore 'database-file)) + + #t) + (define (db-open database) (define flags (list SQLITE_OPEN_READWRITE |