only include adjustments

hours.txt

@@ -2,3 +2,6 @@
 
 5/25/2021 3 hours
 6/1/2021 0.5 hours
+6/5/2021 2 hours
+6/6/2021 2 hours
+6/11/2021 2 hours

src/clj/auto_ap/square/core.clj

@@ -257,7 +257,9 @@
                   #:sales-refund {:external-id (str "square/refund/" (:id r))
                                   :total (amount->money (:amount_money r))
                                   :fee (transduce
-                                        (comp   (map :amount_money) (map amount->money))
+                                        (comp (filter #(= "ADJUSTMENT" (:type %)))
+                                              (map :amount_money)
+                                              (map amount->money))
                                         +
                                         0.0
                                         (:processing_fee r))