From 67d2528166e4444c71a4807103593bcc92308c66 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Tue, 24 Jan 2023 10:44:49 -0800 Subject: [PATCH] Fixes ezcater error for unsubscribed clients --- src/clj/auto_ap/ezcater/core.clj | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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)