blob: 9638ac4b52e24398e85d68c1d9284817d4a47822 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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)))
|