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

Remove a couple of peek calls that snuck in

Browse source
This commit is contained in:
Christopher Baines 2019-11-14 20:51:29 +00:00
parent ab51599057
commit edb21317a6
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -638,7 +638,7 @@
(assq-ref query-parameters 'base_commit)) (assq-ref query-parameters 'base_commit))
(define target-commit (define target-commit
(peek (assq-ref query-parameters 'target_commit))) (assq-ref query-parameters 'target_commit))
(layout (layout
#:body #:body

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

@ -629,7 +629,7 @@
(a (@ (href ,path)) (a (@ (href ,path))
,(display-store-item path)) ,(display-store-item path))
"\"," "\","
,(string-append (if (peek recursive?) "\"r:" "\"") ,(string-append (if recursive? "\"r:" "\"")
hash-algorithm) hash-algorithm)
"\"" "\""
"," ","