这是我在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]
这几乎是正确的,除了我也想在这里 JSON 化 Tip 的 id ......但它不在模型上的任何地方!我该怎么做?有什么办法可以从 aEntityVal
到 aEntityKey
吗?