Making datetime operations more forgiving w/r/t nill values.

cnuernber · May 28, 2021 · 5529872 · 5529872
1 parent ccdb84d
commit 5529872
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/tech/v3/datatype/datetime/operations.clj b/src/tech/v3/datatype/datetime/operations.clj
@@ -400,7 +400,8 @@
       :temporal (let [tf (ensure-temporal-amount tf)]
                   (reify BinaryOperators$ObjectBinaryOperator
                     (binaryObject [this lhs rhs]
-                      (.plus ^Temporal lhs (unchecked-long rhs) tf))))
+                      (when lhs
+                        (.plus ^Temporal lhs (unchecked-long rhs) tf)))))
       :epoch (let [epoch-conv (long (dt-base/epoch->microseconds dtype))
                    tf-conv (long (dt-base/relative->microseconds tf))]
                (reify BinaryOperators$LongBinaryOperator
@@ -447,7 +448,8 @@
       :temporal (let [tf (ensure-temporal-amount tf)]
                   (reify BinaryOperators$ObjectBinaryOperator
                     (binaryObject [this lhs rhs]
-                      (.minus ^Temporal lhs (unchecked-long rhs) tf))))
+                      (when lhs
+                        (.minus ^Temporal lhs (unchecked-long rhs) tf)))))
       :epoch (let [epoch-conv (long (dt-base/epoch->microseconds dtype))
                    tf-conv (long (dt-base/relative->microseconds tf))]
                (reify BinaryOperators$LongBinaryOperator