mirror of
git://git.savannah.gnu.org/guix/data-service.git
synced 2023-12-14 03:23:03 +01:00
Decrease builds number to 1
As I don't think these endpoints can return more than 1 result.
This commit is contained in:
parent
ccb429c8b9
commit
0380c84a67
1 changed files with 2 additions and 2 deletions
|
@ -99,7 +99,7 @@
|
||||||
(define (fetch-latest-builds-for-derivation base-url derivation-file-name)
|
(define (fetch-latest-builds-for-derivation base-url derivation-file-name)
|
||||||
(define url
|
(define url
|
||||||
(string-append base-url
|
(string-append base-url
|
||||||
"api/latestbuilds?nr=10"
|
"api/latestbuilds?nr=1"
|
||||||
"&derivation=" derivation-file-name))
|
"&derivation=" derivation-file-name))
|
||||||
|
|
||||||
(let-values (((response body) (http-request url)))
|
(let-values (((response body) (http-request url)))
|
||||||
|
@ -115,7 +115,7 @@
|
||||||
(define (fetch-queued-builds-for-derivation base-url derivation-file-name)
|
(define (fetch-queued-builds-for-derivation base-url derivation-file-name)
|
||||||
(define url
|
(define url
|
||||||
(string-append base-url
|
(string-append base-url
|
||||||
"api/queue?nr=10"
|
"api/queue?nr=1"
|
||||||
"&derivation=" derivation-file-name))
|
"&derivation=" derivation-file-name))
|
||||||
|
|
||||||
(let-values (((response body) (http-request url)))
|
(let-values (((response body) (http-request url)))
|
||||||
|
|
Loading…
Reference in a new issue