giles
739e743918
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 41s
mod/triage-pipeline domain r reports actor composes domain-policy decision → explanation → AP activity → wire into one bundle. Integration test runs the whole federated path across 5 modules (decide → wire → peer → trust-gated apply), confirming the module-by-module subsystem composes end to end. +15 tests. Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
19 lines
987 B
Plaintext
19 lines
987 B
Plaintext
;; lib/mod/pipeline.sx — end-to-end triage orchestration.
|
|
;;
|
|
;; A single entry point that runs a report through the subsystem and returns the
|
|
;; full artifact bundle: the decision (under the report's domain policy), a
|
|
;; human-readable explanation, an ActivityPub-shaped event for the bus, and the
|
|
;; wire line for federated peers. Composes policies (Ext 17), explain (Ext 3),
|
|
;; activity (Ext 16) and wire (Ext 14) — the modules are independent, this is just
|
|
;; the convenience that wires them together for the common "process a report" path.
|
|
|
|
(define
|
|
mod/triage-pipeline
|
|
(fn
|
|
(domain r reports actor)
|
|
(let ((d (mod/decide-in domain r reports))) {:activity (mod/decision->activity d actor) :action (get d :action) :wire (mod/decision->wire d) :rule (get d :rule) :decision d :explanation (mod/explain d)})))
|
|
|
|
(define mod/pipeline-action (fn (p) (get p :action)))
|
|
(define mod/pipeline-activity (fn (p) (get p :activity)))
|
|
(define mod/pipeline-wire (fn (p) (get p :wire)))
|