仆人中缺少 CORS 标头“Access-Control-Allow-Origin”

Question

使用runfromNetwork.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 将仆人处理程序变成 wai Application
• api :: Proxy YourAPI
• serverImpl 是您的处理程序的实现