如何更新localy a Yesod monad

Question

我正在使用Yesod，需要暂时修改approot，以便renderUrl生成本地路由（即以/开头）而不是全局路由（包括主机）。

这样做的一种方法是使用approot覆盖ApprootRelative并致电renderUrl。但是，我在一个Yesod monad monad里面，所以我不确定如何获得一个yesod“对象”，修改它approot并调用renderUrl。