A
Он же его тредит, это не совсем то
Size: a a a
2021 April 28
KC
Ну даже если бы и был, он ничем не лучше чем просто let + cond
A
Он на один отступ меньше
ND
макрос напиши
A
Мне лень
KC
Ага, и символов меньше, и скобочек)
A
when-let же есть
ST
я бы как-то так писал
(defn- error-phrase?
[^Throwable e, phrase]
(some-> e .getMessage (.contains phrase)))
(cond (error-phrase? e "Phone") :DUPLICATED_PHONE
(error-phrase? e "Email") :DUPLICATED_EMAIL
...)
KC
его врядли добавляли что бы отступа избежать )
A
так в каждой ветке будет происходить
.getMessage одного и того же ексепшена, а используя let именно этого и хотели избежать, судя по всемуST
в данном случае это очень дешёвая операция, чтобы на этом нужно было экономить
KR
какая-то несерьезная проблемаа
ST
DL
а ваще я бы просто сделал хэшмапу и some по ней
ST
показывай
ST
(defn- error-phrase?
[phrase, ^Throwable e]
(some-> e .getMessage (.contains phrase)))
(condp error-phrase? e
"Phone" :DUPLICATED_PHONE
"Email" :DUPLICATED_EMAIL)
DL
(def errors
{"Phone" :DUPLICATED_PHONE
"Email" :DUPLICATED_EMAIL})
(some (fn [[text error]]
(when (error-phrase? e text)
error))
errors)
но я не проснулся, так что могу врать
ST
а, ну в таком смысле
изначальный-то код не содержал error-phrase
изначальный-то код не содержал error-phrase