12 lines
375 B
Scheme
12 lines
375 B
Scheme
(define-module (metalapi device)
|
|
#:use-module (metalapi requests)
|
|
#:use-module (metalapi project)
|
|
#:export (build-device
|
|
list-all-devices))
|
|
|
|
(define (build-device device-alist)
|
|
(extract-attrs device-alist "id" "hostname"))
|
|
|
|
(define (list-all-devices project)
|
|
(handle-pagination (format #f "/projects/~a/devices" (project->id project)) "devices" build-device))
|