generated from coulomb/repo-seed
feat(WP-0012): IHF Phase 11 — Advanced AI Federation
Some checks failed
Test / test (push) Has been cancelled
Some checks failed
Test / test (push) Has been cancelled
- 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>
This commit is contained in:
153
Web/View/AgentRegistrations/Show.hs
Normal file
153
Web/View/AgentRegistrations/Show.hs
Normal file
@@ -0,0 +1,153 @@
|
||||
module Web.View.AgentRegistrations.Show where
|
||||
|
||||
import Web.View.Prelude
|
||||
import Web.View.AgentRegistrations.Index (trustBadge, statusBadge)
|
||||
|
||||
data ShowView = ShowView
|
||||
{ agent :: !AgentRegistration
|
||||
, policies :: ![ModelRoutingPolicy]
|
||||
, recentProposals :: ![AgentProposal]
|
||||
, mPerformance :: !(Maybe AgentPerformanceRecord)
|
||||
}
|
||||
|
||||
instance View ShowView where
|
||||
html ShowView { .. } = [hsx|
|
||||
<div class="p-6 space-y-6">
|
||||
<div class="flex justify-between items-start">
|
||||
<div>
|
||||
<h1 class="text-2xl font-bold text-gray-900">{agent.name}</h1>
|
||||
<p class="text-sm text-gray-500 mt-1 font-mono">{agent.slug}</p>
|
||||
</div>
|
||||
<div class="flex gap-2">
|
||||
{trustBadge agent.trustLevel}
|
||||
{statusBadge agent.isActive}
|
||||
<a href={EditAgentRegistrationAction agent.id}
|
||||
class="px-3 py-1 text-sm bg-gray-100 hover:bg-gray-200 rounded">Edit</a>
|
||||
{when agent.isActive [hsx|
|
||||
<a href={DeactivateAgentAction agent.id}
|
||||
class="px-3 py-1 text-sm bg-red-50 text-red-700 hover:bg-red-100 rounded">Deactivate</a>
|
||||
|]}
|
||||
<a href={ComputeAgentPerformanceAction agent.id}
|
||||
class="px-3 py-1 text-sm bg-blue-50 text-blue-700 hover:bg-blue-100 rounded">Compute Performance</a>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="grid grid-cols-2 gap-4 bg-gray-50 rounded-lg p-4">
|
||||
<div>
|
||||
<p class="text-xs text-gray-500">Provider</p>
|
||||
<p class="font-mono text-sm">{agent.provider}</p>
|
||||
</div>
|
||||
<div>
|
||||
<p class="text-xs text-gray-500">Model</p>
|
||||
<p class="font-mono text-sm">{agent.modelName}</p>
|
||||
</div>
|
||||
<div class="col-span-2">
|
||||
<p class="text-xs text-gray-500">Description</p>
|
||||
<p class="text-sm">{fromMaybe "—" agent.description}</p>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
{performancePanel mPerformance}
|
||||
|
||||
<div>
|
||||
<h2 class="text-lg font-semibold text-gray-800 mb-3">Routing Policies</h2>
|
||||
{if null policies
|
||||
then [hsx|<p class="text-sm text-gray-500">No routing policies. <a href={NewModelRoutingPolicyAction} class="text-blue-600">Add one</a>.</p>|]
|
||||
else policiesTable}
|
||||
</div>
|
||||
|
||||
<div>
|
||||
<h2 class="text-lg font-semibold text-gray-800 mb-3">Recent Proposals (last 10)</h2>
|
||||
{if null recentProposals
|
||||
then [hsx|<p class="text-sm text-gray-500">No proposals yet.</p>|]
|
||||
else proposalsTable}
|
||||
</div>
|
||||
</div>
|
||||
|]
|
||||
where
|
||||
policiesTable = [hsx|
|
||||
<div class="bg-white shadow rounded-lg overflow-hidden">
|
||||
<table class="min-w-full divide-y divide-gray-200">
|
||||
<thead class="bg-gray-50">
|
||||
<tr>
|
||||
<th class="px-4 py-3 text-left text-xs font-medium text-gray-500 uppercase">Task Type</th>
|
||||
<th class="px-4 py-3 text-left text-xs font-medium text-gray-500 uppercase">Priority</th>
|
||||
<th class="px-4 py-3 text-left text-xs font-medium text-gray-500 uppercase">Active</th>
|
||||
</tr>
|
||||
</thead>
|
||||
<tbody class="divide-y divide-gray-200">
|
||||
{forEach policies \p -> [hsx|
|
||||
<tr>
|
||||
<td class="px-4 py-3 text-sm font-mono">{p.taskType}</td>
|
||||
<td class="px-4 py-3 text-sm">{show p.priority}</td>
|
||||
<td class="px-4 py-3">{statusBadge p.isActive}</td>
|
||||
</tr>
|
||||
|]}
|
||||
</tbody>
|
||||
</table>
|
||||
</div>
|
||||
|]
|
||||
|
||||
proposalsTable = [hsx|
|
||||
<div class="bg-white shadow rounded-lg overflow-hidden">
|
||||
<table class="min-w-full divide-y divide-gray-200">
|
||||
<thead class="bg-gray-50">
|
||||
<tr>
|
||||
<th class="px-4 py-3 text-left text-xs font-medium text-gray-500 uppercase">Type</th>
|
||||
<th class="px-4 py-3 text-left text-xs font-medium text-gray-500 uppercase">Status</th>
|
||||
<th class="px-4 py-3 text-left text-xs font-medium text-gray-500 uppercase">Tokens In/Out</th>
|
||||
<th class="px-4 py-3 text-left text-xs font-medium text-gray-500 uppercase">Created</th>
|
||||
</tr>
|
||||
</thead>
|
||||
<tbody class="divide-y divide-gray-200">
|
||||
{forEach recentProposals \p -> [hsx|
|
||||
<tr>
|
||||
<td class="px-4 py-3 text-sm font-mono">{p.proposalType}</td>
|
||||
<td class="px-4 py-3 text-sm">{p.status}</td>
|
||||
<td class="px-4 py-3 text-sm text-gray-500">
|
||||
{maybe "—" show p.tokensIn} / {maybe "—" show p.tokensOut}
|
||||
</td>
|
||||
<td class="px-4 py-3 text-sm text-gray-500">{timeAgo p.createdAt}</td>
|
||||
</tr>
|
||||
|]}
|
||||
</tbody>
|
||||
</table>
|
||||
</div>
|
||||
|]
|
||||
|
||||
performancePanel :: Maybe AgentPerformanceRecord -> Html
|
||||
performancePanel Nothing = [hsx|
|
||||
<div class="bg-yellow-50 border border-yellow-200 rounded-lg p-4 text-sm text-yellow-800">
|
||||
No performance snapshot available. Click "Compute Performance" to generate one.
|
||||
</div>
|
||||
|]
|
||||
performancePanel (Just p) =
|
||||
let total = p.proposalsAccepted + p.proposalsRejected
|
||||
acceptPct = if total > 0 then (100 * p.proposalsAccepted) `div` total else 0
|
||||
in [hsx|
|
||||
<div class="bg-white shadow rounded-lg p-4">
|
||||
<h2 class="text-lg font-semibold text-gray-800 mb-3">Performance (30-day snapshot)</h2>
|
||||
<div class="grid grid-cols-4 gap-4">
|
||||
<div class="text-center">
|
||||
<p class="text-2xl font-bold text-gray-900">{show p.proposalsGenerated}</p>
|
||||
<p class="text-xs text-gray-500">Generated</p>
|
||||
</div>
|
||||
<div class="text-center">
|
||||
<p class="text-2xl font-bold text-green-600">{show p.proposalsAccepted}</p>
|
||||
<p class="text-xs text-gray-500">Accepted</p>
|
||||
</div>
|
||||
<div class="text-center">
|
||||
<p class="text-2xl font-bold text-red-500">{show p.proposalsRejected}</p>
|
||||
<p class="text-xs text-gray-500">Rejected</p>
|
||||
</div>
|
||||
<div class="text-center">
|
||||
<p class="text-2xl font-bold text-blue-600">{show acceptPct}%</p>
|
||||
<p class="text-xs text-gray-500">Acceptance rate</p>
|
||||
</div>
|
||||
</div>
|
||||
{case p.meanConfidence of
|
||||
Nothing -> [hsx|<p class="mt-3 text-sm text-gray-400">Mean confidence: —</p>|]
|
||||
Just c -> [hsx|<p class="mt-3 text-sm text-gray-600">Mean confidence: {printf "%.2f" c :: String}</p>|]
|
||||
}
|
||||
</div>
|
||||
|]
|
||||
Reference in New Issue
Block a user