Haskell PostgreSQL Simple 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

Answer 2

fromField应该取一个整数（数据库中的 smallint）并返回一个 Role 值。我建议你使用模式匹配来实现它。您可以在文档中阅读有关fromField的更多信息。您还可以从预定义的 fromField 实现中获取灵感。