diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-04-11 11:36:50 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-04-11 11:36:50 +0100 |
| commit | 970228d8b99669b45c76ecc4df910bfe4f0a48e0 (patch) | |
| tree | b4dfe15b599b60d58da6960ced3bf42793b006f5 | |
| parent | cb833e6ce09b2a974af714a149a96d979ca631de (diff) | |
| download | build-coordinator-970228d8b99669b45c76ecc4df910bfe4f0a48e0.tar build-coordinator-970228d8b99669b45c76ecc4df910bfe4f0a48e0.tar.gz | |
Add a coordinator procedure to get the details for an agent
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 16edf54..ad0a6a1 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -28,7 +28,8 @@ #:export (submit-build new-agent new-agent-password - fetch-builds)) + fetch-builds + agent-details)) (define* (submit-build datastore derivation-file #:key @@ -105,3 +106,9 @@ builds))) builds)) + +(define (agent-details datastore agent-id) + (let ((agent (datastore-find-agent datastore agent-id)) + (allocated-builds (datastore-list-agent-builds datastore agent-id))) + `(,@agent ; description + (builds . ,(list->vector allocated-builds))))) |