haskell - 如何配置 yesod 具有指向同一实体的多个路由？

Question

我有一个 yesod 路由，有两个处理程序 - 一个用于 GET，一个用于 PUT:

getHotspotR :: Key Hotspot -> Handler Value
getHotspotR i = do
        hotspot <- runDB $ get404 i
        returnJson hotspot

putHotspotR :: Handler ()
putHotspotR = do  
        hotspot <- requireJsonBody
        hid <- runDB $ insert $ hotspot
        sendResponseCreated $ HotspotR hid 

但我不知道如何处理路由。如果我这样做:

/hotspot/#HotspotId HotspotR GET PUT

它提示 PUT 处理程序的空气性错误:

  Couldn't match expected type `Key Hotspot -> HandlerT App IO res0'
                with actual type `HandlerT App IO ()'
    The function `putHotspotR' is applied to one argument,
    but its type `Handler ()' has none

但是如果我声明另一条路线:

/hotspot/#HotspotId HotspotR GET 
/hotspot HotspotR PUT 

它提示我有重复的路线:

/hotspot/#HotspotId HotspotR GET 
/hotspot HotspotR PUT 

Foundation.hs:48:1:
    Multiple declarations of `HotspotR'
    Declared at: Foundation.hs:48:1
                 Foundation.hs:48:1

Answer 1

从逻辑上讲，这些资源并不相同，即使它们操纵实体。 HotspotR 操纵单个热点。 HotspotsR 操纵热点集(例如，通过插入到该集中)。

确保路由的名称不同。

/hotspots/           HotspotsR PUT
/hotspots/#HotspotId HotspotR  GET

然后相应地修改你的 put 资源。

putHotspotsR :: Handler ()
putHotspotsR = do { ... }

这也将使您将来能够执行以下操作。

/hotspots/           HotspotsR GET PUT   -- list all hotspots, insert a hotspot
/hotspots/#HotspotId HotspotR  GET PATCH -- Get a hotspot, update a hotspot.