15 lines
367 B
Plaintext
15 lines
367 B
Plaintext
|
|
(->> (dc/q '[:find ?u (max ?lat)
|
|
:in $ $$
|
|
:where [?u :user/name]
|
|
[$$ ?u _ _ ?tx]
|
|
[?tx :db/txInstant ?lat]]
|
|
(dc/db conn)
|
|
(dc/history (dc/db conn)))
|
|
(map (fn [[u last-login]]
|
|
{:db/id u
|
|
:user/last-login last-login}))
|
|
(dc/transact conn)
|
|
deref)
|
|
|