diff --git a/src/clj/auto_ap/ezcater/core.clj b/src/clj/auto_ap/ezcater/core.clj index 0a868d35..45111f71 100644 --- a/src/clj/auto_ap/ezcater/core.clj +++ b/src/clj/auto_ap/ezcater/core.clj @@ -269,11 +269,12 @@ (alog/info ::try-import-order :json json) - @(d/transact conn [(some-> json - (lookup-order) - (order->sales-order) - (update :sales-order/date coerce/to-date) - (update-in [:sales-order/charges 0 :charge/date] coerce/to-date))])) + @(d/transact conn (filter identity + [(some-> json + (lookup-order) + (order->sales-order) + (update :sales-order/date coerce/to-date) + (update-in [:sales-order/charges 0 :charge/date] coerce/to-date))]))) (defn upsert-recent [] (let [last-sunday (coerce/to-date (time/plus (second (->> (time/today)