diff options
Diffstat (limited to 'guix-qa-frontpage/package.scm')
-rw-r--r-- | guix-qa-frontpage/package.scm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/guix-qa-frontpage/package.scm b/guix-qa-frontpage/package.scm new file mode 100644 index 0000000..9638ac4 --- /dev/null +++ b/guix-qa-frontpage/package.scm @@ -0,0 +1,21 @@ +(define-module (guix-qa-frontpage package) + #:use-module (srfi srfi-1) + #:use-module (guix-qa-frontpage guix-data-service) + #:export (package-data)) + +(define (package-data name) + (let* ((revision (get-latest-processed-branch-revision "master")) + (package-versions + (vector->list + (assoc-ref + (guix-data-service-request + (string-append + "https://data.qa.guix.gnu.org/revision/" revision + "/package/" name ".json")) + "versions"))) + (data + (guix-data-service-request + (string-append + "https://data.qa.guix.gnu.org/revision/" revision + "/package/" name "/" (last package-versions) ".json")))) + (peek data))) |