feat(WP-0012): IHF Phase 11 — Advanced AI Federation

- Schema: AgentRegistration, ModelRoutingPolicy, AgentDelegation,
  CollectiveProposal, CollectiveProposalContribution, AiGovernancePolicy,
  AgentPerformanceRecord + ALTER TABLE agent_proposals
  (migration 1744156800; CHECK constraints on trust_level, status,
  consensus_status — GAAF compliant)

- Bridge: scripts/llm_bridge.py (llm-connect subprocess seam) +
  Application/Helper/AgentBridge.hs (callBridge, callAgent,
  checkGovernancePolicy, jsonArrayTexts)

- Routing: Application/Helper/ModelRouter.hs (resolveAgent,
  resolveAllAgents) + ModelRoutingPolicies CRUD

- Registry: AgentRegistrations CRUD (Index/Show/New/Edit/Performance),
  DeactivateAgentAction, ComputeAgentPerformanceAction

- Delegation: AgentDelegations controller + views, DelegateSubtaskAction
  with token budget enforcement at bridge call time

- Collective: CollectiveProposals controller + views,
  CreateCollectiveProposalAction (fan-out → synthesis → consensus detection)

- Governance: AiGovernancePolicies CRUD + ToggleAiGovernancePolicyAction;
  checkGovernancePolicy enforced at all 4 Phase 5 invocation points

- Phase 5 wiring: replaced callClaudeApi in Widgets, DecisionRecords,
  RequirementCandidates with resolveAgent + callAgent + token tracking

- llm-connect feature requests: ~/llm-connect/FEATURE_REQUESTS.md
  (FR-1 HTTP serve, FR-2 RoutingPolicy, FR-3 async, FR-4 BudgetTracker)

- GAAF scorecard: 3.61 (up from 3.56); Functional 3.4→3.6, Extensions 3.8→3.9

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

Web/Controller/AgentRegistrations.hs

@@ -0,0 +1,122 @@
+module Web.Controller.AgentRegistrations where
+
+-- IHF Phase 11 — Advanced AI Federation (IHUB-WP-0012 T03)
+
+import Web.Controller.Prelude
+import Web.View.AgentRegistrations.Index
+import Web.View.AgentRegistrations.Show
+import Web.View.AgentRegistrations.New
+import Web.View.AgentRegistrations.Edit
+import Web.View.AgentRegistrations.Performance
+
+instance Controller AgentRegistrationsController where
+
+    action AgentRegistrationsAction = do
+        agents <- query @AgentRegistration
+            |> orderByAsc #name
+            |> fetch
+        hubs <- query @Hub |> orderByAsc #name |> fetch
+        render IndexView { .. }
+
+    action ShowAgentRegistrationAction { agentRegistrationId } = do
+        agent <- fetch agentRegistrationId
+        policies <- query @ModelRoutingPolicy
+            |> filterWhere (#agentRegistrationId, agentRegistrationId)
+            |> orderByAsc #taskType
+            |> fetch
+        recentProposals <- query @AgentProposal
+            |> filterWhere (#agentRegistrationId, Just agentRegistrationId)
+            |> orderByDesc #createdAt
+            |> limit 10
+            |> fetch
+        mPerformance <- query @AgentPerformanceRecord
+            |> filterWhere (#agentRegistrationId, agentRegistrationId)
+            |> orderByDesc #computedAt
+            |> limit 1
+            |> fetchOneOrNothing
+        render ShowView { .. }
+
+    action NewAgentRegistrationAction = do
+        let agent = newRecord @AgentRegistration
+        hubs <- query @Hub |> orderByAsc #name |> fetch
+        render NewView { .. }
+
+    action CreateAgentRegistrationAction = do
+        let agent = newRecord @AgentRegistration
+        agent
+            |> fill @'["hubId","name","slug","description","provider","modelName","trustLevel","systemPrompt"]
+            |> set #capabilities (A.Array mempty)
+            |> validateField #name nonEmpty
+            |> validateField #slug nonEmpty
+            |> validateField #provider (isInList ["openrouter","gemini","openai","claude-code"])
+            |> validateField #modelName nonEmpty
+            |> validateField #trustLevel (isInList ["advisory","elevated","autonomous"])
+            |> ifValid \case
+                Left agent -> do
+                    hubs <- query @Hub |> orderByAsc #name |> fetch
+                    render NewView { .. }
+                Right agent -> do
+                    agent <- createRecord agent
+                    setSuccessMessage "Agent registered"
+                    redirectTo AgentRegistrationsAction
+
+    action EditAgentRegistrationAction { agentRegistrationId } = do
+        agent <- fetch agentRegistrationId
+        hubs <- query @Hub |> orderByAsc #name |> fetch
+        render EditView { .. }
+
+    action UpdateAgentRegistrationAction { agentRegistrationId } = do
+        agent <- fetch agentRegistrationId
+        agent
+            |> fill @'["name","description","provider","modelName","trustLevel","systemPrompt"]
+            |> validateField #name nonEmpty
+            |> validateField #provider (isInList ["openrouter","gemini","openai","claude-code"])
+            |> validateField #modelName nonEmpty
+            |> validateField #trustLevel (isInList ["advisory","elevated","autonomous"])
+            |> ifValid \case
+                Left agent -> do
+                    hubs <- query @Hub |> orderByAsc #name |> fetch
+                    render EditView { .. }
+                Right agent -> do
+                    updateRecord agent
+                    setSuccessMessage "Agent updated"
+                    redirectTo (ShowAgentRegistrationAction agentRegistrationId)
+
+    action DeactivateAgentAction { agentRegistrationId } = do
+        agent <- fetch agentRegistrationId
+        agent |> set #isActive False |> updateRecord
+        setSuccessMessage "Agent deactivated"
+        redirectTo (ShowAgentRegistrationAction agentRegistrationId)
+
+    action ComputeAgentPerformanceAction { agentRegistrationId } = do
+        agent <- fetch agentRegistrationId
+        rows <- sqlQuery
+            "SELECT \
+            \    COUNT(*) FILTER (WHERE ap.status = 'accepted')::int AS accepted, \
+            \    COUNT(*) FILTER (WHERE ap.status = 'rejected')::int AS rejected, \
+            \    COUNT(*) FILTER (WHERE ap.status NOT IN ('accepted','rejected'))::int AS other, \
+            \    COUNT(*)::int AS total, \
+            \    AVG(ca.score) AS mean_confidence \
+            \ FROM agent_proposals ap \
+            \ LEFT JOIN confidence_annotations ca ON ca.proposal_id = ap.id \
+            \ WHERE ap.agent_registration_id = ? \
+            \   AND ap.created_at >= NOW() - INTERVAL '30 days'"
+            [PersistUUID (toUUID agentRegistrationId)]
+        case rows of
+            [(accepted, rejected, _other, total, mConf)] -> do
+                now <- getCurrentTime
+                let periodStart = addUTCTime (negate $ 30 * 86400) now
+                newRecord @AgentPerformanceRecord
+                    |> set #agentRegistrationId agentRegistrationId
+                    |> set #hubId agent.hubId
+                    |> set #periodStart periodStart
+                    |> set #periodEnd now
+                    |> set #proposalsGenerated total
+                    |> set #proposalsAccepted accepted
+                    |> set #proposalsRejected rejected
+                    |> set #proposalsRevised 0
+                    |> set #meanConfidence mConf
+                    |> createRecord
+                setSuccessMessage "Performance snapshot computed"
+            _ -> setErrorMessage "Could not compute performance metrics"
+        redirectTo (ShowAgentRegistrationAction agentRegistrationId)