Add exception handling inside doseq in scheduler tasks

src/clj/commiteth/scheduler.clj

@@ -15,13 +15,16 @@
             [clj-time.periodic :refer [periodic-seq]]
             [chime :refer [chime-at]]))
 
+
 (defn update-issue-contract-address
   "For each pending deployment: gets transaction receipt, updates db
   state (contract-address, comment-id) and posts github comment"
   []
+  (log/info "In update-issue-contract-address")
   (doseq [{issue-id         :issue_id
            transaction-hash :transaction_hash} (issues/list-pending-deployments)]
-    (log/debug "pending deployment:" transaction-hash)
+    (log/info "pending deployment:" transaction-hash)
+    (try 
       (when-let [receipt (eth/get-transaction-receipt transaction-hash)]
         (log/info "update-issue-contract-address: transaction receipt for issue #"
                   issue-id ": " receipt)
@@ -51,7 +54,11 @@
                                    balance-eth
                                    balance-eth-str
                                    {}))
-        (log/error "Failed to find contract address in tx logs")))))
+          (log/error "Failed to find contract address in tx logs")))
+      (catch Throwable ex 
+        (do (log/error "update-issue-contract-address exception:" ex)
+            (clojure.stacktrace/print-stack-trace ex)))))
+  (log/info "Exit update-issue-contract-address"))
 
 
 (defn deploy-contract [owner-address issue-id]
@@ -85,6 +92,7 @@
 (defn self-sign-bounty
   "Walks through all issues eligible for bounty payout and signs corresponding transaction"
   []
+  (log/info "In self-sign-bounty")
   (doseq [{contract-address :contract_address
            issue-id         :issue_id
            payout-address   :payout_address
@@ -94,8 +102,9 @@
            issue-number :issue_number
            balance-eth :balance_eth
            tokens :tokens
-           winner-login :winner_login} (db-bounties/pending-bounties)
+           winner-login :winner_login} (db-bounties/pending-bounties)]
-          :let [value (eth/get-balance-hex contract-address)]]
+    (try
+      (let [value (eth/get-balance-hex contract-address)]
         (if (empty? payout-address)
           (do
             (log/error "Cannot sign pending bounty - winner has no payout address")
@@ -118,11 +127,17 @@
                                                 (eth-decimal->str balance-eth)
                                                 tokens
                                                 winner-login
-                                            false)))))
+                                                false))))
+      (catch Throwable ex 
+        (do (log/error "self-sign-bounty exception:" ex)
+            (clojure.stacktrace/print-stack-trace ex)))))
+  (log/info "Exit self-sign-bounty")
+  )
 
 (defn update-confirm-hash
   "Gets transaction receipt for each pending payout and updates DB confirm_hash with tranaction ID of commiteth bot account's confirmation."
   []
+  (log/info "In update-confirm-hash")
   (doseq [{issue-id     :issue_id
            execute-hash :execute_hash} (db-bounties/pending-payouts)]
     (log/info "pending payout:" execute-hash)
@@ -130,7 +145,8 @@
       (log/info "execution receipt for issue #" issue-id ": " receipt)
       (when-let [confirm-hash (multisig/find-confirmation-tx-id receipt)]
         (log/info "confirm hash:" confirm-hash)
-        (db-bounties/update-confirm-hash issue-id confirm-hash)))))
+        (db-bounties/update-confirm-hash issue-id confirm-hash))))
+  (log/info "Exit update-confirm-hash"))
 
 
 (defn update-watch-hash
@@ -154,6 +170,7 @@
 (defn update-payout-receipt
   "Gets transaction receipt for each confirmed payout and updates payout_hash"
   []
+  (log/info "In update-payout-receipt")
   (doseq [{issue-id    :issue_id
            payout-hash :payout_hash
            contract-address :contract_address
@@ -167,6 +184,7 @@
            payee-login :payee_login
            updated :updated} (db-bounties/confirmed-payouts)]
     (log/debug "confirmed payout:" payout-hash)
+    (try
       (if-let [receipt (eth/get-transaction-receipt payout-hash)]
         (let [contract-tokens (multisig/token-balances contract-address)
               contract-eth-balance (eth/get-balance-wei contract-address)]
@@ -192,7 +210,12 @@
                                                 payee-login))))
         (when (older-than-3h? updated)
           (log/info "Resetting payout hash for issue" issue-id "as it has not been mined in 3h")
-        (db-bounties/reset-payout-hash issue-id)))))
+          (db-bounties/reset-payout-hash issue-id)))
+      (catch Throwable ex 
+        (do (log/error "update-payout-receipt exception:" ex)
+            (clojure.stacktrace/print-stack-trace ex)))))
+  (log/info "Exit update-payout-receipt")
+  )
 
 (defn abs
   "(abs n) is the absolute value of n"
@@ -213,17 +236,24 @@
 (defn update-bounty-token-balances
   "Helper function for updating internal ERC20 token balances to token multisig contract. Will be called periodically for all open bounty contracts."
   [issue-id bounty-addr watch-hash]
+  (log/info "In update-bounty-token-balances for issue" issue-id)
   (doseq [[tla token-data] (token-data/as-map)]
+    (try
       (let [balance (multisig/token-balance bounty-addr tla)]
         (when (> balance 0)
           (do
-          (log/debug "bounty at" bounty-addr "has" balance "of token" tla)
+            (log/info "bounty at" bounty-addr "has" balance "of token" tla)
             (let [internal-balance (multisig/token-balance-in-bounty bounty-addr tla)]
               (when (and (nil? watch-hash)
                          (not= balance internal-balance))
                 (log/info "balances not in sync, calling watch")
                 (let [hash (multisig/watch-token bounty-addr tla)]
-                (db-bounties/update-watch-hash issue-id hash)))))))))
+                  (db-bounties/update-watch-hash issue-id hash)))))))
+      (catch Throwable ex 
+        (do (log/error "update-bounty-token-balances exception:" ex)
+            (clojure.stacktrace/print-stack-trace ex)))))
+  (log/info "Exit update-bounty-token-balances"))
+  
 
 (defn update-contract-internal-balances
   "It is required in our current smart contract to manually update it's internal balance when some tokens have been added."
@@ -263,6 +293,7 @@
 
 (defn update-balances
   []
+  (log/info "In update-balances")
   (doseq [{contract-address :contract_address
            owner            :owner
            repo             :repo
@@ -271,6 +302,7 @@
            db-balance-eth   :balance_eth
            db-tokens        :tokens
            issue-number     :issue_number} (db-bounties/open-bounty-contracts)]
+    (try
       (when comment-id
         (let [balance-eth-str (eth/get-balance-eth contract-address 6)
               balance-eth (read-string balance-eth-str)
@@ -307,7 +339,11 @@
                                    balance-eth
                                    balance-eth-str
                                    token-balances)
-          (update-issue-usd-value contract-address))))))
+            (update-issue-usd-value contract-address))))
+      (catch Throwable ex 
+        (do (log/error "update-balances exception:" ex)
+            (clojure.stacktrace/print-stack-trace ex)))))
+  (log/info "Exit update-balances"))
 
 
 (defn wrap-in-try-catch [func]
@@ -323,7 +359,7 @@
 
 (defn run-1-min-interval-tasks [time]
   (do
-    (log/debug "run-1-min-interval-tasks" time)
+    (log/info "run-1-min-interval-tasks" time)
     ;; TODO: disabled for now. looks like it may cause extraneus
     ;; contract deployments and costs
     (run-tasks