Отсутствует заголовок CORS "Access-Control-Allow-Origin"

Question

С использованием run от Network.Wai.Handler.Warp функция сервера остальные API

run :: Port -> Application -> IO ()

но при этом post запрос, получаю ошибку CORS header ‘Access-Control-Allow-Origin’, Любая идея, как преодолеть это в слуге /haskell

Answer 1

Вы могли бы использовать wai-cors промежуточное ПО для добавления заголовков CORS.

В конце у вас будет что-то вроде

app = simpleCors $ serve api serverImpl

где

• simpleCors это Middleware от wai-cors
• serve превращает обработчиков слуг в waiApplication
• api :: Proxy YourAPI
• serverImpl это реализация ваших обработчиков