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

Remove some peek statements that snuck in

Browse source
This commit is contained in:
Christopher Baines 2019-11-21 20:48:41 +00:00
parent 23f60a6bbb
commit ae150888d8
2 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
guix-data-service/comparison.scm
View file

@ -764,6 +764,6 @@ WHERE (
(json-string->scm body_text))) (json-string->scm body_text)))
(string->symbol change)))) (string->symbol change))))
(exec-query-with-null-handling conn query (exec-query-with-null-handling conn query
(peek (list base-guix-revision-id (list base-guix-revision-id
target-guix-revision-id))))) target-guix-revision-id))))

1
guix-data-service/web/repository/html.scm
View file

@ -289,7 +289,6 @@
(cons (cons last count) (cons (cons last count)
result)) result))
(((a b rst ...) (count result ...)) (((a b rst ...) (count result ...))
(peek a b)
(if (string=? a b) (if (string=? a b)
(cons (+ 1 count) (cons (+ 1 count)
(cons #f result)) (cons #f result))