diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-01-05 11:17:56 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-01-05 12:01:06 +0000 |
| commit | e070c200300f65fbdd55e141e2d18bbc4093a628 (patch) | |
| tree | 733e0031146970d3e48b422957229795ee84e05c /guix-data-service/model | |
| parent | ffcf937c6abc0aef0276b929a77219c19991b40c (diff) | |
| download | data-service-e070c200300f65fbdd55e141e2d18bbc4093a628.tar data-service-e070c200300f65fbdd55e141e2d18bbc4093a628.tar.gz | |
Make valid-systems quicker
In the future, it would be good to pull this from the database again, but in
some way which is really quick.
Diffstat (limited to 'guix-data-service/model')
| -rw-r--r-- | guix-data-service/model/derivation.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm index cd850ae..033168b 100644 --- a/guix-data-service/model/derivation.scm +++ b/guix-data-service/model/derivation.scm @@ -59,10 +59,12 @@ derivation-file-names->derivation-ids)) (define (valid-systems conn) - (map car - (exec-query - conn - "SELECT DISTINCT system FROM derivations ORDER BY 1"))) + ;; TODO, use the database, but make it quick! + '("aarch64-linux" + "armhf-linux" + "i686-linux" + "mips64el-linux" + "x86_64-linux")) (define (count-derivations conn) (first |