Fix recur till

This commit is contained in:
Daniel O'Connell 2022-05-12 16:55:04 +02:00
parent 935b6f9cd9
commit f7de4a90df

View File

@ -111,7 +111,7 @@
(.toString rule)))
(defn get-until [rule]
(some-> rule (RecurrenceRule.) (.getUntil) (.getTimestamp) (Instant/ofEpochMilli)))
(some-> rule (RecurrenceRule.) (.getUntil) (.getTimestamp) (Instant/ofEpochMilli) str))
(defn set-until [rule until]
(let [rule (RecurrenceRule. rule)]
(.setUntil rule (to-recur-datetime until))