Fixes rate limiting, adds more logs

src/clj/auto_ap/square/core3.clj

@@ -35,7 +35,7 @@
 (def manifold-api-stream
   (let [stream (s/stream 100)]
     (->> stream
-         (s/throttle 50)
+         (s/throttle 25)
          (s/map (fn [[request attempt response-deferred]]
                   (de/catch
                    (de/chain
@@ -70,7 +70,7 @@
                    (fn [error]
                      (de/error! response-deferred error)))))
 
-         (s/buffer 50)
+         (s/buffer 25)
          (s/realize-each)
          (s/consume (fn [_]
                       #_(log/info ::request-completed
@@ -402,7 +402,9 @@
                       (s/reduce into []))))
      (de/catch (fn [e]
                  (log/error ::cant-create-results
-                            :exception e)))))))
+                            :exception e
+                            :client client
+                            :location location)))))))
 
 
 (defn get-payment [client p]