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

module Web.View.CollectiveProposals.Show where

import Web.View.Prelude
import Web.View.CollectiveProposals.Index (consensusBadge)

data ShowView = ShowView
    { proposal          :: !CollectiveProposal
    , agentContributions :: ![(CollectiveProposalContribution, Text)]
      -- ^ (contribution, agent name)
    }

instance View ShowView where
    html ShowView { .. } = [hsx|
        <div class="p-6 space-y-6 max-w-4xl">
            <div class="flex justify-between items-start">
                <div>
                    <h1 class="text-2xl font-bold text-gray-900">{proposal.title}</h1>
                    <p class="text-sm font-mono text-gray-500 mt-1">{proposal.taskType}</p>
                </div>
                {consensusBadge proposal.consensusStatus}
            </div>

            {case proposal.summary of
                Nothing -> mempty
                Just s  -> [hsx|<p class="text-gray-700">{s}</p>|]}

            {case proposal.finalContent of
                Nothing -> mempty
                Just fc -> [hsx|
                    <div class="bg-green-50 border border-green-200 rounded-lg p-4">
                        <h2 class="text-sm font-semibold text-green-800 mb-2">Synthesized Recommendation</h2>
                        <pre class="text-sm text-green-900 whitespace-pre-wrap">{show fc}</pre>
                    </div>
                |]}

            <div>
                <h2 class="text-lg font-semibold text-gray-800 mb-3">
                    Agent Contributions ({show (length agentContributions)})
                </h2>
                <div class="grid gap-4">
                    {forEach agentContributions renderContrib}
                </div>
            </div>
        </div>
    |]
      where
        renderContrib (contrib, agentName) = [hsx|
            <div class="bg-white shadow rounded-lg p-4">
                <div class="flex justify-between items-center mb-2">
                    <span class="text-sm font-medium text-gray-800">{agentName}</span>
                    <span class="text-xs text-gray-400">
                        {maybe "" (\m -> "model: " <> m) contrib.modelUsed}
                        {maybe "" (\t -> " · " <> show t <> " tokens out") contrib.tokensOut}
                    </span>
                </div>
                <pre class="text-sm text-gray-700 whitespace-pre-wrap bg-gray-50 rounded p-3">{show contrib.content}</pre>
            </div>
        |]