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/ModelRoutingPolicies.hs

@@ -0,0 +1,47 @@
+module Web.Controller.ModelRoutingPolicies where
+
+-- IHF Phase 11 — Advanced AI Federation (IHUB-WP-0012 T04)
+
+import Web.Controller.Prelude
+import Web.View.ModelRoutingPolicies.Index
+import Web.View.ModelRoutingPolicies.New
+
+instance Controller ModelRoutingPoliciesController where
+
+    action ModelRoutingPoliciesAction = do
+        policies <- query @ModelRoutingPolicy
+            |> orderByAsc #taskType
+            |> fetch
+        hubs <- query @Hub |> orderByAsc #name |> fetch
+        agents <- query @AgentRegistration |> orderByAsc #name |> fetch
+        render IndexView { .. }
+
+    action NewModelRoutingPolicyAction = do
+        let policy = newRecord @ModelRoutingPolicy
+        hubs <- query @Hub |> orderByAsc #name |> fetch
+        agents <- query @AgentRegistration
+            |> filterWhere (#isActive, True)
+            |> orderByAsc #name
+            |> fetch
+        render NewView { .. }
+
+    action CreateModelRoutingPolicyAction = do
+        let policy = newRecord @ModelRoutingPolicy
+        policy
+            |> fill @'["hubId","taskType","agentRegistrationId","priority"]
+            |> validateField #taskType nonEmpty
+            |> ifValid \case
+                Left policy -> do
+                    hubs   <- query @Hub |> orderByAsc #name |> fetch
+                    agents <- query @AgentRegistration |> filterWhere (#isActive, True) |> fetch
+                    render NewView { .. }
+                Right policy -> do
+                    createRecord policy
+                    setSuccessMessage "Routing policy created"
+                    redirectTo ModelRoutingPoliciesAction
+
+    action DeleteModelRoutingPolicyAction { modelRoutingPolicyId } = do
+        policy <- fetch modelRoutingPolicyId
+        deleteRecord policy
+        setSuccessMessage "Routing policy deleted"
+        redirectTo ModelRoutingPoliciesAction