diff --git a/simple.scm b/simple.scm index e8ddd08..54cf6d1 100644 --- a/simple.scm +++ b/simple.scm @@ -1,9 +1,9 @@ (module simple - (server-response-headers sid page-exception-message enable-session + (server-response-headers sid enable-session add-request-handler-hook! remove-request-handler-hook! define-page redirect-to enable-session-cookie session-cookie-setter session-cookie-name $session $session-set! $ page-access-denied-message - debug-file page-access-control server-start $session-destroy! + page-access-control server-start $session-destroy! add-post-request-handler-hook!) (import scheme chicken data-structures utils extras ports srfi-69 files srfi-1) @@ -11,13 +11,9 @@ (use intarweb spiffy spiffy-request-vars uri-common http-session spiffy-cookies sxml-transforms) -(define debug-file (make-parameter #f)) (define server-response-headers (make-parameter #f)) (define sid (make-parameter #f)) -(define page-exception-message - (make-parameter - (lambda (exn) - '(