我正在为angular.js中的Yesod JSON服务器编写客户端。检查标题流量时,Chrome似乎正在发送OPTIONS方法,我的处理程序拒绝该方法。 Investigation建议我发回这样的内容:
Access-Control-Allow-Methods: GET, POST, OPTIONS
Access-Control-Allow-Credentials: true
Access-Control-Allow-Origin: http://source.com
Access-Control-Allow-Headers: Content-Type, *
看着脚手架,我发现makeApplication
开始了我想要遵循的路径:
makeApplication :: AppConfig DefaultEnv Extra -> IO Application
makeApplication conf = do
foundation <- makeFoundation conf
app <- toWaiAppPlain foundation
return $ logWare app
where
logWare = if development then logStdoutDev
else logStdout
最初,我认为我需要修改conf
,但我可以理解管理操作系统环境。全局更改响应标头的最直接的位置在哪里?
答案 0 :(得分:2)
除了logWare之外,最简单的事情可能是添加另一个中间件。