diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-12-22 11:38:45 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-12-22 14:27:49 +0000 |
| commit | 89e34f3df85e12e92d4ccb6c48c43c1dcb279484 (patch) | |
| tree | f57ad471bfea6960f1db4c650bd3f3ba566de59d /guix-data-service/model | |
| parent | a019a5ed821cf1b7b2c2b0e1bd2dc25a51bbcb84 (diff) | |
| download | data-service-89e34f3df85e12e92d4ccb6c48c43c1dcb279484.tar data-service-89e34f3df85e12e92d4ccb6c48c43c1dcb279484.tar.gz | |
Ignore cross built derivations for the build stats
Diffstat (limited to 'guix-data-service/model')
| -rw-r--r-- | guix-data-service/model/build.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guix-data-service/model/build.scm b/guix-data-service/model/build.scm index 212b679..6dd7a96 100644 --- a/guix-data-service/model/build.scm +++ b/guix-data-service/model/build.scm @@ -15,7 +15,12 @@ (define* (select-build-stats conn build-servers #:key revision-commit) (define criteria - `(,@(if build-servers + `(,@(if revision-commit + ;; Ignore cross built derivations, as I'm not aware of a build server + ;; that builds them + '("package_derivations.system = package_derivations.target") + '()) + ,@(if build-servers (list (string-append "builds.build_server_id IN (" |