如何在没有脚手架结构的 Yesod 上设置“cors”？

Question

在 yesod https://github.com/yesodweb/yesod-cookbook/blob/master/cookbook/Allowing-WOFF-fonts-to-be-accessed-from-other-domains-%28CORS%中有关于启用CORS的明确文档29.md#using-wai-cors-package

但它需要在具有makeApplication和Application.hs的scaffold yesod 应用程序中运行

在我的情况下，代码库不是由 yesods scaffold构建的，现在尝试将其公开为 RESTful 服务。

mkYesod "App" [parseRoutes|
 /Hello HelloR POST OPTIONS
 /version VersionR GET
|]

在这种情况下如何添加CORS支持？

参考：

• http://hackage.haskell.org/package/wai-cors

Answer 1

这是我如何解决这个问题的代码。

使用toWaiApp提取application实例并用 cors 中间件包装它。

mkYesod "App" [parseRoutes|
 /Hello HelloR POST OPTIONS
 /version VersionR GET
|]

main :: IO ()
main =
   do
     app <- toWaiApp App
     run 8081 $ defaultMiddlewaresNoLogging $ cors (const $ Just $ simpleCorsResourcePolicy { corsOrigins = Nothing , corsMethods = ["OPTIONS", "GET", "PUT", "POST"] , corsRequestHeaders = simpleHeaders }) $ app