postgresql - Haskell PostgreSQL 简单 FromField

Question

我在为自定义枚举数据类型定义 FromField 实例时遇到问题:

data Role = Staff | Student deriving (Eq, Ord, Show)

为了表示数据库中的Role，我将使用整数 0 和 1(稍后可以添加更多角色)，很可能是 smallint。

Review 用于我的其他数据类型，表示数据库表中的一行:

data ReviewAssignment = ReviewAssignment
  { aID :: ID
  , reviewID :: ID
  , reviewerID :: ID
  , revieweeID :: ID
  , reviewerRole :: Role -- <-- right there
  , reviewFinished :: Bool
  , reviewPoints :: Float
  } deriving (Show, Eq)

这是我的 ReviewAssignment 的 FromRow 实例:

instance FromRow ReviewAssignment where
  fromRow = ReviewAssignment <$> field <*> field <*> field <*> field <*> field <*> field <*> field

现在我只是缺少以下内容，我不明白如何实现:

instance FromField Role where
  fromField = undefined

Answer 1

可能为时已晚，但类似的事情应该有效(希望如此):

instance FromField Role where
  fromField f mdata =
    return role
    where role = case mdata of
      Just 0 -> Staff   
      _      -> Student