Yesod - 将资源转换为文本URL以放入包含查询参数的JSON API

Question

函数getUrlRender用于通过使用Route (HandlerSite m)将Text转换为Monads。例如：

routeToText :: MonadHandler m => Route (HandlerSite m) -> m Text
routeToText url = do
  r <- getUrlRender
  return $ r url

getTestR :: Text -> Handler Text
getTestR something = routeToText (TestR something)

但是如果我想传递一个查询参数呢？我可以直接与Text直接交易吗？另一个问题，我可以简化函数routeToText的类型声明吗？

我将使用这些网址来完成关于分页的JSON API specification，我已经创建了所有抽象工作，但我不知道如何实现一种链接方式像http://example.com/articles?page=2一样简洁。如果有一种更好的方法可以将带有查询参数的链接与Aeson库精美地集成在一起，而无需先将其转换为Text，请告诉我们。