diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-11-14 20:51:29 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-11-14 20:52:05 +0000 |
| commit | c7224dc2adbbddc4f6a3c48d16adf9af44428fa6 (patch) | |
| tree | 5777879fa32d9a014e431019e426c9483e3e7361 | |
| parent | ab51599057464aec3f08c078405dd48148c9a880 (diff) | |
| download | data-service-c7224dc2adbbddc4f6a3c48d16adf9af44428fa6.tar data-service-c7224dc2adbbddc4f6a3c48d16adf9af44428fa6.tar.gz | |
Remove a couple of peek calls that snuck in
| -rw-r--r-- | guix-data-service/web/compare/html.scm | 2 | ||||
| -rw-r--r-- | guix-data-service/web/view/html.scm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/guix-data-service/web/compare/html.scm b/guix-data-service/web/compare/html.scm index 86be5a9..afb103d 100644 --- a/guix-data-service/web/compare/html.scm +++ b/guix-data-service/web/compare/html.scm @@ -638,7 +638,7 @@ (assq-ref query-parameters 'base_commit)) (define target-commit - (peek (assq-ref query-parameters 'target_commit))) + (assq-ref query-parameters 'target_commit)) (layout #:body diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 5f14722..b403890 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -629,7 +629,7 @@ (a (@ (href ,path)) ,(display-store-item path)) "\"," - ,(string-append (if (peek recursive?) "\"r:" "\"") + ,(string-append (if recursive? "\"r:" "\"") hash-algorithm) "\"" "," |