haskell - 如何访问 Haskell 中持久实体的字段

Question

我正在使用 Scotty 框架在 Haskell 中编写 REST API。我有一个持久表定义为

share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
User json
    username Text
    number Text
    group Text Maybe
    UniqueUsername username
    UniqueNumber number
    deriving(Show)
...
]

然后我有一个函数来获取用户 fetchUserByName::Text -> IO (Entity User)。我不明白的是，如果我有一个变量 user::Entity User，我该如何访问任何字段，例如该用户的用户名？我觉得这应该是完全微不足道的，但我似乎无法在网上找到答案。或者我只是以错误的方式解决这个问题？谢谢你。

Answer 1

您可以使用 entityVal 提取您的用户项目，然后您可以使用记录名称(我相信它总是生成为格式的格式)到所需的列 <tablename><columnname>驼峰式)

print $ userGroup $ entityVal user