clojure - 在交易中包装返回值

Question

在我看来，我想要达到的目标是微不足道的；然而，让我自己弄清楚它让我很头疼。

我有一个用 Clojure 编写的服务实现，它通过 JPA 与数据库后端对话。
我必须做这样的事情:

(defn foo []
  (let [entitymanager ... query ...]
    (do
      (.. entitymanager (getTransaction) (begin))
      (read-from-db query) ; <-- shall be returned
      (.. entitymanager (getTransaction) (commit))
      )
    )
  )

从数据库读取返回一个值。我查看了 java.jdbc 包，它看起来很有希望，但我想/必须坚持使用 JPA。此外，我的问题似乎并不特定于 JPA 本身。

有没有一种惯用的方法可以在 Clojure 中对返回值进行这种包装？
请记住，我是 Clojure 新手。

亲切的问候!

Answer 1

我不确定是否理解您的问题。以下是我对您的问题的回答:

(defn foo []
  (let [entitymanager ... query ...]
    (do
      (.. entitymanager (getTransaction) (begin))
      (let [db-reply (read-from-db query)] ; <-- shall be returned
        (.. entitymanager (getTransaction) (commit))
        db-reply)
      )
    )
  )

正确吗？