diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-11-21 20:48:41 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-11-21 20:48:41 +0000 |
| commit | ae150888d8fa26243bf4bc4cf48d0ab366a5f843 (patch) | |
| tree | 938e934b57dd5fac288a2e5c2b01c5921a8d4250 | |
| parent | 23f60a6bbb923a9510d95250b4a1626cb8a84b7f (diff) | |
| download | data-service-ae150888d8fa26243bf4bc4cf48d0ab366a5f843.tar data-service-ae150888d8fa26243bf4bc4cf48d0ab366a5f843.tar.gz | |
Remove some peek statements that snuck in
| -rw-r--r-- | guix-data-service/comparison.scm | 4 | ||||
| -rw-r--r-- | guix-data-service/web/repository/html.scm | 1 |
2 files changed, 2 insertions, 3 deletions
diff --git a/guix-data-service/comparison.scm b/guix-data-service/comparison.scm index 535014e..d1d9630 100644 --- a/guix-data-service/comparison.scm +++ b/guix-data-service/comparison.scm @@ -764,6 +764,6 @@ WHERE ( (json-string->scm body_text))) (string->symbol change)))) (exec-query-with-null-handling conn query - (peek (list base-guix-revision-id - target-guix-revision-id))))) + (list base-guix-revision-id + target-guix-revision-id)))) diff --git a/guix-data-service/web/repository/html.scm b/guix-data-service/web/repository/html.scm index 2e93c45..a504ee5 100644 --- a/guix-data-service/web/repository/html.scm +++ b/guix-data-service/web/repository/html.scm @@ -289,7 +289,6 @@ (cons (cons last count) result)) (((a b rst ...) (count result ...)) - (peek a b) (if (string=? a b) (cons (+ 1 count) (cons #f result)) |