haskell - Esqueleto で特定の ID の行を更新する

Question

entryId次のように Esqueletoで行のフィールドを変更できます。

  update $ \entry -> do
    set entry [ EntryFoo =. val bar ]
    where_ (entry ^. EntryId ==. val entryId)

とはいえ、ずっと書くのは面倒ですよね。私はこのようなものを書くことができるようにしたいと思います:

  updateById entryId $ \entry ->
    set entry [ EntryFoo =. val bar ]

^. EntryIdこのヘルパーを自分で書こうとしましたが、一般的な方法 (つまり、どのエントリ タイプでも機能する方法) で書く方法がわからないことがわかりました。出来ますか？または、何か不足してupdateByIdいて、Esqueleto に既に存在していますか?