创建自定义 happstack 响应代码

Question

我一直在尝试创建自定义happstack响应405 "Method not allowed"，因此如果有人使用POST或PUT方法调用API，他们将得到此响应。我是happstack的新手.任何想法我该怎么做？

Answer 1

那么ok :: (FilterMonad Response m) => a -> m a函数实现为 [src]：

ok :: (FilterMonad Response m) => a -> m a
ok = resp 200

因此，它与编写ok响应的方式相同，只是您应该将resp :: (FilterMonad Response m) => Int -> b -> m b与自定义返回代码一起使用。

例如：

resp 405 "Method not allowed"

因此，例如，我们可以阻止PUT并POST请求，如下所示：

main :: IO ()
main = simpleHTTP nullConf $ msum
[ do method GET
ok $ "This is allowed.n"
, do method PUT
(resp 405) $ "Method not allowed"
, do method POST
(resp 405) $ "Method not allowed"
]