import batch next
This commit is contained in:
@@ -57,7 +57,6 @@
|
||||
|
||||
(def is-year-month-day #"^\d{4}-\d{2}-\d{2}$")
|
||||
|
||||
|
||||
(defn dates->date-times [x]
|
||||
(walk/postwalk
|
||||
(fn [node]
|
||||
@@ -65,7 +64,7 @@
|
||||
|
||||
(and (string? node)
|
||||
(re-matches is-8601 node))
|
||||
(format/parse (format/formatters :date-time) node)
|
||||
(time/to-default-time-zone (format/parse (format/formatters :date-time) node))
|
||||
|
||||
(and (string? node)
|
||||
(re-matches is-year-month-day node))
|
||||
|
||||
Reference in New Issue
Block a user