From ba3b39242cef005f60ddf9e50a63ba0c190ce9a2 Mon Sep 17 00:00:00 2001 From: Cadence Ember Date: Sun, 4 Dec 2022 23:44:35 +1300 Subject: [PATCH] Rename ref parameter to next_location --- src/data.rkt | 2 +- src/page-set-user-settings.rkt | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/data.rkt b/src/data.rkt index e8a9e69..cdd8c39 100644 --- a/src/data.rkt +++ b/src/data.rkt @@ -91,5 +91,5 @@ #:max-age (* 60 60 24 365 10))))) (define (user-cookies-setter-url req new-settings) - (format "/set-user-settings?~a" (params->query `(("ref" . ,(url->string (request-uri req))) + (format "/set-user-settings?~a" (params->query `(("next_location" . ,(url->string (request-uri req))) ("new_settings" . ,(format "~a" new-settings)))))) diff --git a/src/page-set-user-settings.rkt b/src/page-set-user-settings.rkt index 3f37692..2fbc573 100644 --- a/src/page-set-user-settings.rkt +++ b/src/page-set-user-settings.rkt @@ -12,7 +12,7 @@ (define (page-set-user-settings req) (response-handler - (define ref (dict-ref (url-query (request-uri req)) 'ref)) + (define next-location (dict-ref (url-query (request-uri req)) 'next_location)) (define new-settings (read (open-input-string (dict-ref (url-query (request-uri req)) 'new_settings)))) (define headers (user-cookies-setter new-settings)) - (generate-redirect ref #:headers headers))) + (generate-redirect next-location #:headers headers)))