diff options
| -rw-r--r-- | mumi/web/controller.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/mumi/web/controller.scm b/mumi/web/controller.scm index 23317bb..290ff6b 100644 --- a/mumi/web/controller.scm +++ b/mumi/web/controller.scm @@ -40,7 +40,7 @@ target (list functions ...))) -(define %session-manager +(define (%session-manager) (let ((key-file (string-append (%config 'key-dir) "/signing-key"))) (unless (file-exists? key-file) (with-output-to-file key-file @@ -109,7 +109,7 @@ ;; Record the current issue id in an encrypted cookie. ;; This will be verified when posting a comment. (let* ((cookie-header - (set-session %session-manager `((issue-id . ,id)))) + (set-session (%session-manager) `((issue-id . ,id)))) (headers (cond ((bug-archived bug) @@ -130,7 +130,7 @@ (if (mailer-enabled?) (let ((headers (request-headers request)) (form-data (parse-form-submission request body)) - (cookie (or (session-data %session-manager request) + (cookie (or (session-data (%session-manager) request) '())) (bug (fetch-bug id))) (if (and |