aboutsummaryrefslogtreecommitdiff
path: root/web
diff options
context:
space:
mode:
Diffstat (limited to 'web')
-rwxr-xr-xweb/webserver.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/web/webserver.scm b/web/webserver.scm
index 6be0890..17f5716 100755
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -66,7 +66,7 @@
(list (append extra-headers
'((content-type . (text/html))))
(lambda (port)
- (sxml->html (view-doc (pk path) (pk page) rec) port))))
+ (sxml->html (view-doc path page rec) port))))
(define (render-json json)
(list '((content-type . (application/json)))
@@ -117,7 +117,7 @@
(request-method request)
(uri-path (request-uri request)))
(apply values
- ((controller (pk request) body)
+ ((controller request body)
(cons (request-method request)
(request-path-components request)))))