Добавление заголовочных файлов CORS в Spiffy (схема / Chicken)

Question

Мне нужно подключить веб-приложение к интерфейсу REST, созданному в Scheme / Chicken с веб-сервером Spiffy.

Как добавить этот заголовок с использованием правильного синтаксиса Scheme в файл конфигурации .scm (начиная Spiffy с CSI -s /www/config.scm)?

Заголовок Access-Control-Allow-Origin: *

Answer 1

Когда вы выполняете процедуру в vhost-map, вы можете просто обернуть ее в with-headers, например, так:

(vhost-map `((".*" . ,(lambda (cont)
                        (with-headers '((access-control-allow-origin "*"))
                          cont)))))

При этом используется процедура with-headers, которая просто добавляет заголовки к ответу, возвращаемому блоком. Для получения дополнительной информации см. Документы Spiffy .