integrates new page into company section

2023-01-14 13:52:09 -08:00
parent 6077c3119e
commit d2189ba460
10 changed files with 164 additions and 80 deletions
--- a/src/clj/auto_ap/square/core3.clj
+++ b/src/clj/auto_ap/square/core3.clj
@@ -47,11 +47,16 @@
                                                               :attempt attempt
                                                               :source "Square 3"
                                                               :background-job "Square 3")
-                                                       (client/request (assoc request
-                                                                              :socket-timeout 10000
-                                                                              :connection-timeout 10000
-                                                                              :as :json
-                                                                              :retry-handler retry-4))))
+                                                       (try 
+                                                         (client/request (assoc request
+                                                                                :socket-timeout 10000
+                                                                                :connection-timeout 10000
+                                                                                :as :json
+                                                                                :retry-handler retry-4))
+                                                         (catch Exception e
+                                                           (log/error ::raw-request-failed
+                                                                      :exception e)
+                                                           (throw e)))))
                             (de/catch
                                 (fn [e]
                                   (if (= attempt 5)