From e070c200300f65fbdd55e141e2d18bbc4093a628 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 5 Jan 2020 11:17:56 +0000 Subject: 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. --- guix-data-service/model/derivation.scm | 10 ++++++---- tests/model-derivation.scm | 2 +- 2 files changed, 7 insertions(+), 5 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 diff --git a/tests/model-derivation.scm b/tests/model-derivation.scm index eca3768..e02ff50 100644 --- a/tests/model-derivation.scm +++ b/tests/model-derivation.scm @@ -9,7 +9,7 @@ "test-model-derivation" (lambda (conn) (test-equal "valid-systems" - '() + '("aarch64-linux" "armhf-linux" "i686-linux" "mips64el-linux" "x86_64-linux") (valid-systems conn)) (test-equal "count-derivations" -- cgit v1.2.3