haskell - 从表中的一列中获取唯一值

Question

我是Hashkell和Yesod的初学者，我对如何从mysql表的一列中取出所有唯一值很感兴趣。
一个具体的例子是我有一个 Address 实体，我想取 city 属性的所有值：

Address json
    state Text sqltype=varchar(255)
    city Text sqltype=varchar(255)
    street Text Maybe sqltype=varchar(255)
    number Text sqltype=varchar(255)
    deriving Show Typeable

我想把城市的所有值都捡起来用在表格里。
我想在下拉列表中有这些值：

filters <- runInputPost $ ManFilter
        <$> iopt (selectFieldList city) "City"
    defaultLayout [whamlet | <h1> # {show $ filters} |]
 where
  city ​​:: [(Text, Text)]
  city ​​= [("NY", "NY"), ("London", "London"), ("Madrid", "Madrid")]

还有一个问题，如何根据 我从数据库中获取city :: [(Text, Text)]的值自动创建一个元组？

如果有人可以提供帮助，我将不胜感激，因为我对表格很感兴趣。
如果它是一个好的程序，也写，什么是错的，当然欢迎任何建议。谢谢！