Haskell Yesod - CORS在执行POST请求时浏览器选项请求的问题

import Yesod
import Yesod.Cors

data MyApp = MyApp

instance Yesod MyApp

-- 配置CORS中间件
appCors :: Middleware
appCors = cors (const $ Just corsResourcePolicy)

-- CORS资源策略
corsResourcePolicy :: CorsResourcePolicy
corsResourcePolicy = CorsResourcePolicy
    { corsOrigins = Nothing -- 允许所有来源
    , corsMethods = ["POST"] -- 允许POST方法
    , corsRequestHeaders = ["Content-Type"] -- 允许Content-Type标头
    , corsExposedHeaders = Nothing
    , corsMaxAge = Nothing
    , corsVaryOrigin = False
    , corsRequireOrigin = False
    , corsIgnoreFailures = False
    }

-- 定义路由
mkYesod "MyApp" [parseRoutes|
/ HomeR GET
|]

-- 处理POST请求
postHomeR :: Handler Value
postHomeR = do
    -- 设置CORS标头
    addHeader "Access-Control-Allow-Origin" "*"
    -- 处理POST请求逻辑
    ...

-- 启动应用程序
main :: IO ()
main = warp 3000 $ appCors $ MyApp