Yesod return 插入后的整个实体?

Yesod return whole Entity after insert?

基本上现在我 运行 fbId <- runDB $ insert myNewFooBar 然后我得到一个 Key FooBar。有没有什么方法可以直接从插入 return 整个 FooBar 的值,而无需 运行 之后 runDB $ get404 fbId 的单独查询?

我只是构建 Entity Haskell 端:Entity fbId myNewFooBar.

另一个更短的选项是使用 insertEntity,其中 returns 是实体而不是记录。在幕后,此函数调用 insert 并根据提供的记录和返回的键构建实体(无额外的数据库查询)。

insertedFooBar <- runDB $ insertEntity myNewFooBar