MK
но во всяких
*arrow*
библиотеках встречаетсяSize: a a a
MK
*arrow*
библиотеках встречаетсяAG
(already-logged-in!)
тоже наоборотMK
(or
(!already-logged-in session)
(or
(!has-additional-messages msgs)
(let [user (->user msgs password->digest)]
(or
(!has-validation-errors user)
(let [user (fill-id user new-user-ids)
id (-> user agg/root :agg/id)]
{:set-session (assoc session :current-user-id id),
:persist [user],
:reaction {:type :show-screen, :name :main}})))))
MK
(already-logged-in!)
тоже наоборотAG
AG
AG
MK
->
и ->>
нифига не очевидноMK
AG
->
и ->>
нифига не очевидноMK
AG
<<-, reverse body, !symbol
OR
AB
ST
ST
AB
ST
ST
ST