haskell - 在 Happstack 路由过滤器中组合 GET 和 POST 部分

Question

我正在尝试使用 Happstack 实现一个简单的请求处理程序:

main :: IO ()
main = simpleHTTP nullConf app

app :: ServerPart Response
app = msum [
             dir "hello" $ method GET  >> helloGet
           , dir "hello" $ method POST >> helloPost
           ]

如何在不重复 dir "hello" 的情况下实现类似的目标?

这个，

app :: ServerPart Response
app = msum [
             dir "hello" $ do
                method GET  >> helloGet
                method POST >> helloPost
           , okResponse home
           ]

只会“落入”默认部分。

Answer 1

app :: ServerPart Response
app = msum [
             dir "hello" $ (method GET >> helloGet) <|> (method POST >> helloPost)
           , okResponse home
           ]

.. 假设 ServerPart有合适的 Alternative实例。如果由于某种原因丢失，您可以更换 (<|>)与 mplus .这里的主要思想是您只是将一个路由组合器嵌套在另一个中。