pr-suggestion

suggestion.clj

(defn get-callback-success [request id]
  (jdbc/with-db-transaction [db (-> request :opts :db)]
    (let [config (-> request :opts :config)
          boundaries (-> request :opts :boundaries)
          merchant (:merchant boundaries)
          mantis (:mantis boundaries)
          deposit (db/get-deposit db {:id id})
          identification (delay (db/get-identification db {:id id}))
          withdrawal (delay (update-withdrawal! (:opts request) id))]
      (cond
        deposit (get-deposit-success db boundaries deposit)
        @identification (get-identification-success db mantis merchant @identification)
        @withdrawal (get-withdrawal-success merchant @withdrawal)
        :else (resp/not-found {:error "No such ID!"})))))