prevents external ledger imports before the client was locked.

src/clj/auto_ap/square/core.clj

@@ -94,6 +94,15 @@
                     "sort_order" "DESC"
                     }}})
 
+(defn get-order
+  ([client location order-id]
+   (log/info "Searching for" (:square-location/client-location location))
+   (let [result (->> (client/get (str "https://connect.squareup.com/v2/orders/" order-id)
+                                  {:headers (client-base-headers client)
+                                   :as      :json}) 
+                     :body
+                     )]
+     result)))
 
 (defn search
   ([client location d]