Haskell Yesod如何控制持久性如何访问数据库列

Question

我有一个已经相当大的数据库，我需要按照他们写入THERE（camelCase）的方式访问表和列。我可以更改以下代码，以便可以访问camelCase，或者至少有一种方法来为每个表和列定义字符串（因为它在数据库中）？

share [mkPersist sqlSettings, mkMigrate "migrateAll"] 
    $(persistFileWith lowerCaseSettings "config/models") 

另一件事：我不想做任何迁移，我只想做CRUD

例

型号：

MyTest 
    firstName Text 

表：

create table MyTest ( 
    id int unsigned AUTO_INCREMENT, 
    firstName varchar (255) not null, 
    primary key(id) 
) 

另一件事：如果我有一个名为myColumn2的列，并且我希望它在定义中是myColumn，该怎么办？我如何定义在与数据库交谈时使用的自定义名称？

Answer 1

看这个页面的文档：https://hackage.haskell.org/package/persistent-2.2.2/docs/Database-Persist-Quasi.html

命名psToDBName的字段可以设置，给你你正在寻找的行为。我现在正在打电话，但稍后当我回到电脑时，我会试着举例说明。