处理OPTIONS方法最简单的方法?

时间:2012-12-06 20:20:12

标签: haskell yesod haskell-warp

我正在为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,但我可以理解管理操作系统环境。全局更改响应标头的最直接的位置在哪里?

1 个答案:

答案 0 :(得分:2)

除了logWare之外,最简单的事情可能是添加另一个中间件。