From 99241ef1af24cadf39e3cad39f9ff27c96b22068 Mon Sep 17 00:00:00 2001 From: Clément Lassieur Date: Fri, 20 Jul 2018 10:50:48 +0200 Subject: http: Change the paramater format from two-elements lists to pairs. * src/cuirass/database.scm (assqx-ref): Remove exported procedure. (db-get-builds, db-get-build): Adapt to new format. * src/cuirass/http.scm (request-parameters): Use (cons key param) instead of (list key param). (url-handler): Adapt to new format. * tests/database.scm ("db-get-builds"): Idem. --- tests/database.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'tests/database.scm') diff --git a/tests/database.scm b/tests/database.scm index 6ca9d1c..17d48f5 100644 --- a/tests/database.scm +++ b/tests/database.scm @@ -194,12 +194,14 @@ INSERT INTO Evaluations (specification, commits) VALUES (3, 3);") (let ((summarize (lambda (alist) (list (assq-ref alist #:id) (assq-ref alist #:derivation))))) - (vector (map summarize (db-get-builds db '((nr 3) (order build-id)))) + (vector (map summarize (db-get-builds db '((nr . 3) + (order . build-id)))) (map summarize (db-get-builds db '())) - (map summarize (db-get-builds db '((jobset "guix")))) - (map summarize (db-get-builds db '((nr 1)))) + (map summarize (db-get-builds db '((jobset . "guix")))) + (map summarize (db-get-builds db '((nr . 1)))) (map summarize - (db-get-builds db '((order status+submission-time)))))))) + (db-get-builds + db '((order . status+submission-time)))))))) (test-equal "db-get-pending-derivations" '("/bar.drv" "/foo.drv") -- cgit v1.2.3