diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-06-16 14:21:34 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-06-16 14:21:34 +0100 |
| commit | b1c0ec6c97ce38df90e8389aa1323e14290fdbf2 (patch) | |
| tree | e429d22ce10c55687ea387dc76d8f1852f0bca06 | |
| parent | 32ff341089e0001fee0653b830ebd6146145900a (diff) | |
| download | data-service-b1c0ec6c97ce38df90e8389aa1323e14290fdbf2.tar data-service-b1c0ec6c97ce38df90e8389aa1323e14290fdbf2.tar.gz | |
Remove some peek calls that have crept in
| -rw-r--r-- | guix-data-service/web/controller.scm | 1 | ||||
| -rw-r--r-- | guix-data-service/web/view/html.scm | 2 |
2 files changed, 1 insertions, 2 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index 9ef0554..84afa1f 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -579,7 +579,6 @@ (first (count-guix-revisions conn))))))) (lambda (key . args) - (peek key args) #f)))) (render-json `((status . ,(if database-status diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 78388c2..03bd9b1 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -184,7 +184,7 @@ `((value ,(value->text value))))) ((_key . value) (if (string=? type "checkbox") - (if (peek "VALUE" value) + (if value '((checked #t)) '()) `((value ,(value->text value))))))))) |