haskell - ID を *含む* Persistent でモデルを JSON 化する

Question

Persistentにあるモデルは次のとおりです。

Tip
    text Text
    created_at UTCTime
    updated_at UTCTime
    title Text
    category_id CategoryId

および関連するToJSONインスタンス (使用できませんでしたderiveJSON):

instance ToJSON Tip where
    toJSON (Tip text created_at updated_at title category_id) = object ["text" .= text, "created_at" .= created_at, "updated_at" .= updated_at, "title" .= title, "category_id" .= category_id]

ここでも Tip の ID を JSON 化したいことを除いて、これはほぼ正しいですが、モデルのどこにもありません! どうすればいいですか？EntityValからに移動する方法はありますEntityKeyか?

Answer 1

AnEntityは、キーと値のペアです。値を持っているだけの場合、それが持つ ID を知る一般的な方法はありません。一意の制約がある場合は、それを使用してキーを検索できます。

理論的EntityValには、異なるバックエンド データベースで異なる ID が割り当てられている可能性があります (すべてが同じタイプであるとは限りません)。または、挿入するために手動で作成された可能性がありますが、実際にはまだ挿入されていないため、ID が割り当てられていません。値には本質的にIDはTipありません。特定のデータベースにIDがあるだけかもしれません。