giles
cfdb9cd875
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 35s
12 lines
453 B
Plaintext
12 lines
453 B
Plaintext
;; next/genesis/projections/activity-log.sx
|
|
;;
|
|
;; Identity projection: stores every activity by its CID. The
|
|
;; base ledger every other projection could be re-derived from
|
|
;; if needed. Per design §10.2.
|
|
|
|
(DefineProjection
|
|
:name "activity-log"
|
|
:doc "Maps activity CID to the full envelope. Every activity\n flows through; no filter. State is the CID-keyed dict."
|
|
:initial-state {}
|
|
:fold (fn (state act) (assoc state (-> act :cid) act)))
|