diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-10-12 18:40:18 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-10-12 18:40:18 +0100 |
| commit | 2279f1e0136b48fb9b3cbc685af8d5d14d559e16 (patch) | |
| tree | d00ff8090372a96941181261242f4ac3dfc3bc2b | |
| parent | 116775ad06f70078fb77a836f81ecc19aafe6c04 (diff) | |
| download | data-service-2279f1e0136b48fb9b3cbc685af8d5d14d559e16.tar data-service-2279f1e0136b48fb9b3cbc685af8d5d14d559e16.tar.gz | |
Remove the now redundant with-base-and-target-commits function
Uses of this have been replaced with parse-query-parameters.
| -rw-r--r-- | guix-data-service/web/controller.scm | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index b958395..b418b6b 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -88,15 +88,6 @@ value))) alist)) -(define (with-base-and-target-commits query-parameters conn f) - (let* ((base-commit (assoc-ref query-parameters "base_commit")) - (target-commit (assoc-ref query-parameters "target_commit"))) - - (f base-commit - (commit->revision-id conn base-commit) - target-commit - (commit->revision-id conn target-commit)))) - (define* (render-view-revision mime-types conn commit-hash |