(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))