如何将键/值对附加到yesod中在hamlet块中生成的url

import Network.HTTP.Types.URI (renderQueryText)
import Network.HTTP.Types.Method (methodGet)
import Data.Text.Encoding (encodeUtf8)
import qualified Data.ByteString as BS
import qualified Data.ByteString.Char8 as BS8

let keyValuePairs = [("key1", "value1"), ("key2", "value2")] -- 要附加的键/值对列表
let url = "/some-route" -- 生成URL的路由路径
let queryString = renderQueryText True keyValuePairs -- 生成查询字符串，True表示进行URL编码
let fullUrl = url ++ BS8.unpack queryString -- 将查询字符串追加到URL中
let encodedFullUrl = encodeUtf8 fullUrl -- 将URL转换为字节字符串

let urlAttr = [("href", encodedFullUrl), ("data-method", methodGet)] -- 生成HTML属性列表

a !. "some-class" ! urlAttr $ "Link Text" -- 在hamlet中生成带有属性的链接