如何在happstack中自定义405 Method not allowed响应？

刚接触Happstack的话，自定义405响应其实挺直观的，核心是利用Happstack的路由匹配机制和HTTP响应构造工具。我给你一步步拆解怎么实现：

1. 先导入必要的模块 #

首先确保你引入了Happstack处理请求和响应的核心模块：

import Happstack.Server (ServerPart, Response, method, ok, toResponse, status, methodNotAllowed, setHeader)

2. 针对单个API端点实现自定义405 #

假设你的某个API端点只允许GET方法，对于POST/PUT请求要返回自定义的405响应，可以这样写：

apiEndpoint :: ServerPart Response
apiEndpoint = do
  -- 优先处理允许的GET请求
  method GET
  ok $ toResponse "GET请求已成功处理"

  -- 处理POST/PUT方法，返回自定义405
  <|> do
    method POST <|> method PUT
    -- 设置HTTP状态码为405
    status methodNotAllowed
    -- 必须添加Allow头，告诉客户端允许的方法（HTTP规范要求）
    setHeader "Allow" "GET"
    -- 返回自定义的响应内容
    toResponse "方法不允许：该端点仅支持GET请求，请勿使用POST或PUT方法调用"

  -- 可选：处理其他未允许的方法（比如DELETE），也可以返回自定义响应
  <|> do
    status methodNotAllowed
    setHeader "Allow" "GET"
    toResponse "方法不允许：该端点仅支持GET请求"

这里的关键点：

• <|>是Happstack的路由分支操作符，如果前面的路由匹配失败（比如请求方法不是GET），就会尝试下一个分支。
• method POST <|> method PUT专门匹配这两种不允许的方法，针对性返回提示。
• status methodNotAllowed会把响应状态码设置为405，这是Happstack预定义的标准状态值。
• 必须设置Allow头，这是HTTP 405响应的强制要求，客户端需要知道哪些方法是合法的。

3. 全局范围内自定义405响应 #

如果你想给整个应用的所有未匹配方法请求都返回统一的自定义405，可以在顶层路由的最后添加一个兜底分支：

main :: IO ()
main = simpleHTTP nullConf $ do
  -- 你的其他路由规则
  path "api" $ apiEndpoint
  path "home" $ ok $ toResponse "首页"

  -- 兜底的全局405处理
  <|> do
    status methodNotAllowed
    setHeader "Allow" "GET, HEAD"  -- 根据你的应用实际允许的方法调整
    toResponse "自定义405提示：该资源不支持当前请求方法，请检查后重试"

这样，任何没有匹配到对应方法的请求，都会走到这个分支，返回你自定义的405响应。

内容的提问来源于stack exchange，提问作者ib1