diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-08-09 09:53:17 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-08-09 09:53:17 -0400 |
| commit | 5c46082912bac5e5993792183ce6446a06cb8011 (patch) | |
| tree | 6b73e31a77b3a2c2b9e153848830465a81157255 | |
| parent | ab8432a1bbdb779ae374fe273dca069184486cc6 (diff) | |
Remove unused variable guix-web-router.
* guix-web/config.scm (guix-web-router): Delete it.
| -rw-r--r-- | guix-web/config.scm | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/guix-web/config.scm b/guix-web/config.scm index 0ca28cd..4c2220d 100644 --- a/guix-web/config.scm +++ b/guix-web/config.scm @@ -18,21 +18,6 @@ (define-module (guix-web config) #:use-module (ice-9 match) #:use-module (guix-web server) - #:export (guix-web-asset-dir - guix-web-router)) + #:export (guix-web-asset-dir)) (define guix-web-asset-dir (getcwd)) - -(define (guix-web-router path) - (match path - ((GET) - (redirect '("packages"))) - ((GET "packages") - (render-html (all-packages))) - ((GET "packages.json") - (render-json (all-packages-json))) - ((GET "package" name) - (render-html (view-package name))) - ((GET "librejs") - (render-html (librejs))) - (_ #f))) |