diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-04-23 11:20:36 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-04-23 11:20:36 +0100 |
| commit | 6387f1bc67579485aeb11d5dfa8476ad906bef8c (patch) | |
| tree | 20d2ae44b6bcc0f7a9788fe524ee37f2cdcb6b67 /guix-data-service/model | |
| parent | b430c632b75e5e90e36a855599e3f91302720d54 (diff) | |
| download | data-service-6387f1bc67579485aeb11d5dfa8476ad906bef8c.tar data-service-6387f1bc67579485aeb11d5dfa8476ad906bef8c.tar.gz | |
Fetch the list of system values from the database
This removes the need to hardcode some values in the code.
Diffstat (limited to 'guix-data-service/model')
| -rw-r--r-- | guix-data-service/model/derivation.scm | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm index 099d4cb..d69778d 100644 --- a/guix-data-service/model/derivation.scm +++ b/guix-data-service/model/derivation.scm @@ -34,8 +34,7 @@ #:use-module (guix-data-service database) #:use-module (guix-data-service model utils) #:use-module (guix-data-service model system) - #:export (valid-systems - valid-targets + #:export (valid-targets count-derivations select-derivation-by-file-name select-derivation-by-file-name-hash @@ -61,16 +60,6 @@ select-derivations-and-build-status derivation-file-names->derivation-ids)) -(define (valid-systems conn) - ;; TODO, use the database, but make it quick! - '("aarch64-linux" - "armhf-linux" - "i586-gnu" - "i686-linux" - "mips64el-linux" - "powerpc64le-linux" - "x86_64-linux")) - (define (valid-targets conn) '("arm-linux-gnueabihf" "aarch64-linux-gnu" |