Haskell Yesod如何控制Persistent将如何访问数据库列

Question

我有一个已经相当大的数据库，我需要按照它们写入的方式访问表和列（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怎么办？如何定义与DB交谈时使用的自定义名称？

Answer 1

在文档中查看此页面：https://hackage.haskell.org/package/persistent-2.2.2/docs/Database-Persist-Quasi.html

可以设置名为psToDBName的字段，以便为您提供所需的行为。我现在正打电话，但是当我回到电脑后，我会试着举个例子。