inter-hub-haskell/Web/View/AgentDelegations/Show.hs

module Web.View.AgentDelegations.Show where

import Web.View.Prelude
import Web.View.AgentDelegations.Index (statusBadge)
import Data.Aeson (Value)

data ShowView = ShowView
    { delegation      :: !AgentDelegation
    , delegatingAgent :: !AgentRegistration
    , receivingAgent  :: !AgentRegistration
    , mParentProposal :: !(Maybe AgentProposal)
    }

instance View ShowView where
    html ShowView { .. } = [hsx|
        <div class="p-6 space-y-6 max-w-3xl">
            <div class="flex justify-between items-start">
                <h1 class="text-2xl font-bold text-gray-900">Delegation</h1>
                {statusBadge delegation.status}
            </div>

            <div class="bg-gray-50 rounded-lg p-4 grid grid-cols-2 gap-4">
                <div>
                    <p class="text-xs text-gray-500">Delegating Agent</p>
                    <a href={ShowAgentRegistrationAction delegatingAgent.id}
                       class="text-sm font-medium text-blue-600 hover:text-blue-800">{delegatingAgent.name}</a>
                </div>
                <div>
                    <p class="text-xs text-gray-500">Receiving Agent</p>
                    <a href={ShowAgentRegistrationAction receivingAgent.id}
                       class="text-sm font-medium text-blue-600 hover:text-blue-800">{receivingAgent.name}</a>
                </div>
                <div class="col-span-2">
                    <p class="text-xs text-gray-500">Scope</p>
                    <p class="text-sm">{delegation.scope}</p>
                </div>
                <div>
                    <p class="text-xs text-gray-500">Token Budget</p>
                    <p class="text-sm">{show delegation.tokenBudget}</p>
                </div>
                <div>
                    <p class="text-xs text-gray-500">Tokens Used</p>
                    <p class="text-sm">{maybe "—" show delegation.tokensUsed}</p>
                </div>
            </div>

            {maybe mempty renderParentProposal mParentProposal}

            {maybe mempty renderDelegationResult delegation.result}
        </div>
    |]

renderParentProposal :: AgentProposal -> Html
renderParentProposal p = [hsx|
    <div>
        <p class="text-xs text-gray-500 mb-1">Parent Proposal</p>
        <p class="text-sm font-mono text-gray-600">{p.proposalType} — {p.status}</p>
    </div>
|]

renderDelegationResult :: Value -> Html
renderDelegationResult r = [hsx|
    <div>
        <h2 class="text-lg font-semibold text-gray-800 mb-2">Result</h2>
        <pre class="bg-gray-100 rounded p-4 text-sm overflow-auto">{show r}</pre>
    </div>
|]