如何在Persistent中存储Enum ADT

Question

如何在Persistent中存储枚举？

假设您有数据State = Ready | 尚未准备好 错误

如何将其存储在Persistent数据库中？

Answer 1

derivePersistentField正如Yesod文档所示,这非常简单.对于你的情况,你可以做这样的事情

-- State.hs
{-# LANGUAGE TemplateHaskell #-}
module State where

import Database.Persist.TH
import Prelude

data State = Ready | Unready | Error
    deriving (Show, Read, Eq)
derivePersistField "State"

然后,您可以将其导入并在模型中使用它:

-- Model.hs
import State

SomethingSomething
    state State

Answer 2

请参阅此处的文档以获取示例：https ://github.com/yesodweb/yesod/wiki/Persistent-entity-syntax#sum-types