diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-12-02 13:28:39 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-12-12 20:07:22 +0000 |
| commit | 2d87bd6340011cd403c2960acd691478292908da (patch) | |
| tree | bcd82d7cb84fbc820be31e4cd19f49f42ba3cd80 /guix-data-service/model/nar.scm | |
| parent | 8ff27eaa140c0270a441ba438474db7f70bfefd8 (diff) | |
| download | data-service-2d87bd6340011cd403c2960acd691478292908da.tar data-service-2d87bd6340011cd403c2960acd691478292908da.tar.gz | |
Add a page for each signing key
Diffstat (limited to 'guix-data-service/model/nar.scm')
| -rw-r--r-- | guix-data-service/model/nar.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/guix-data-service/model/nar.scm b/guix-data-service/model/nar.scm index 0898ae4..d511658 100644 --- a/guix-data-service/model/nar.scm +++ b/guix-data-service/model/nar.scm @@ -10,6 +10,7 @@ #:use-module (guix scripts substitute) #:use-module (guix-data-service model utils) #:export (select-outputs-for-successful-builds-without-known-nar-entries + select-signing-key record-narinfo-details-and-return-ids)) @@ -245,3 +246,14 @@ LIMIT 1500")) (map car (exec-query conn query (list (number->string build-server-id))))) + +(define (select-signing-key conn id) + (define query + " +SELECT sexp_json +FROM narinfo_signature_public_keys +WHERE id = $1") + + (match (exec-query conn query (list (number->string id))) + (((sexp_json)) + (json-string->scm sexp_json)))) |