Yesod位置标题

Question

我必须在后处理程序响应中设置位置标头，放置新创建的实体所在的位置。我怎么能动态地做到这一点？

目标路线（将放置的位置）具有以下定义：

/exchanges/#ExchangeId ExchangeByIdR GET PUT

修改

我想要一个像这样的功能：

addLocationHeader (ExchangeByIdR eId)

Answer 1

我只是创建了自己的函数addLocationHeader：

addLocationHeader :: MonadHandler m => Route (HandlerSite m) -> m ()
addLocationHeader url = do
  r <- getUrlRender
  addHeader "Location" (r url)