Question

如何在Persistent中存储枚举？

说你有 data State = Ready |尚未准备好错误

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

Answer 1

使用derivePersistentField非常简单，Yesod docs显示。对于你的情况，你可以做这样的事情

-- 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

如何在Persistent中存储Enum ADT

2 个答案: