cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove some peek calls that have crept in

Browse source
This commit is contained in:
Christopher Baines 2019-06-16 14:21:34 +01:00
parent 32ff341089
commit b1c0ec6c97
2 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
guix-data-service/web/controller.scm
View file

@ -579,7 +579,6 @@
(first (first
(count-guix-revisions conn))))))) (count-guix-revisions conn)))))))
(lambda (key . args) (lambda (key . args)
(peek key args)
#f)))) #f))))
(render-json (render-json
`((status . ,(if database-status `((status . ,(if database-status

2
guix-data-service/web/view/html.scm
View file

@ -184,7 +184,7 @@
`((value ,(value->text value))))) `((value ,(value->text value)))))
((_key . value) ((_key . value)
(if (string=? type "checkbox") (if (string=? type "checkbox")
(if (peek "VALUE" value) (if value
'((checked #t)) '((checked #t))
'()) '())
`((value ,(value->text value))))))))) `((value ,(value->text value)))))))))