haskell - 使用 Yesod 的 Persistent 存储现有数据类型

Question

我能找到的关于 Persistent 的所有教程和引用资料都非常详细地描述了 Persistent 如何从其 DSL 中的单个定义中自动创建新的数据类型、模式、迁移等。但是，我找不到关于如何让 Persistent 处理已经存在的数据类型的解释。

一个例子:假设我已经有一个用于某些游戏逻辑的 Haskell 模块。它包括玩家的记录类型。 (它意味着通过镜头使用，因此有下划线。)

data Player = Player { _name   :: String
                     , _points :: Int
                     -- more fields ...
                     }
$(makeLenses ''Player)

问题:使用 Persistent 将这种类型存储在数据库中的规范方法是什么？是否有一些我可以实现的类型类。还是我最好通过 Persistent 定义一个新类型，例如

share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
PlayerEntry
    name Text
    points Int
|]

然后在这些类型之间手动映射？

playerToEntry :: Player -> PlayerEntry
playerToEntry pl = PlayerEntry (pl^.name) (pl^.points)

entryToPlayer :: PlayerEntry -> Player
entryToPlayer e = Player (name e) (points e)

Answer 1

发件人:http://www.yesodweb.com/book/persistent

{-# LANGUAGE TemplateHaskell #-}
module Employment where

import Database.Persist.TH

data Employment = Employed | Unemployed | Retired
    deriving (Show, Read, Eq)
derivePersistField "Employment"

derivePersistField函数是使它工作的模板 Haskell 魔法。

请注意，您需要执行 derivePersistField在一个单独的文件中执行 mkPersist以避免 TH 相位误差。