diff options
-rw-r--r-- | guix-data-service/model/derivation.scm | 10 | ||||
-rw-r--r-- | 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" |