notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

one more saftey check

Browse Source
This commit is contained in:
Bryce
2024-04-09 14:24:21 -07:00
parent 8b9e617062
commit 10a60dcee2
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/clj/auto_ap/ssr/utils.clj
View File

@@ -190,13 +190,17 @@
[:fn [:fn
{:error/message "Invalid date"} {:error/message "Invalid date"}
(fn [d] (fn [d]
(time/after? (coerce/to-date-time d) (if d
(coerce/to-date-time #inst "2000-01-01")))] (time/after? (coerce/to-date-time d)
(coerce/to-date-time #inst "2000-01-01"))
true))]
[:fn [:fn
{:error/message "Invalid date"} {:error/message "Invalid date"}
(fn [d] (fn [d]
(time/before? (coerce/to-date-time d) (if d
(time/plus (time/now) (time/years 2))))]])) (time/before? (coerce/to-date-time d)
(time/plus (time/now) (time/years 2)))
true))]]))
(def date-transformer (def date-transformer
(mt2/transformer (mt2/transformer