diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-05-10 16:22:12 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-05-10 16:22:12 +0200 |
| commit | 3ab635344f3993161269817a8c8a2b0775ac4e4f (patch) | |
| tree | e1e56d5648e9789642f9cb4e7bd483e4e2eec330 | |
| parent | eafc70aee0a797fd6e0ee7bdb459dff041df4e5c (diff) | |
controller: Don't generate signing key when evaluating the file.
| -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 |