generated from coulomb/repo-seed
feat(P2+P3): IHF Phase 2 complete; register Phase 3 workplan
Phase 2 — Structured Feedback and Triage (IHUB-WP-0002): - Schema: annotation_threads, requirement_candidates, triage_states, reviewer_assignments; annotations extended with severity + thread_id - AnnotationThreadsController: create threads, assign annotations - RequirementCandidatesController: CRUD, escalation, triage lifecycle, reviewer assignment, my-queue - Annotation severity (low/medium/high/critical) with Tailwind color cues - TriageDashboardAction on HubsController with autoRefresh - Integration tests (T01–T09), SCOPE.md updated, docs/phase2-summary.md Phase 3 — Governance and Decision Linkage (IHUB-WP-0003): - Workplan registered: 9 tasks, State Hub workstream 5f201ee3 Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
@@ -29,6 +29,10 @@ instance View ShowView where
|
||||
</p>
|
||||
</div>
|
||||
<div class="flex gap-2">
|
||||
<a href={TriageDashboardAction { hubId = hub.id }}
|
||||
class="text-sm border border-indigo-300 text-indigo-700 px-3 py-1.5 rounded hover:bg-indigo-50">
|
||||
Triage Dashboard
|
||||
</a>
|
||||
<a href={EditHubAction { hubId = hub.id }}
|
||||
class="text-sm border border-gray-300 px-3 py-1.5 rounded hover:bg-gray-50">
|
||||
Edit
|
||||
|
||||
158
Web/View/Hubs/TriageDashboard.hs
Normal file
158
Web/View/Hubs/TriageDashboard.hs
Normal file
@@ -0,0 +1,158 @@
|
||||
module Web.View.Hubs.TriageDashboard where
|
||||
|
||||
import Web.Types
|
||||
import Generated.Types
|
||||
import IHP.Prelude
|
||||
import IHP.ViewPrelude
|
||||
|
||||
data TriageDashboardView = TriageDashboardView
|
||||
{ hub :: !Hub
|
||||
, widgets :: ![Widget]
|
||||
, allCandidates :: ![RequirementCandidate]
|
||||
, triageQueue :: ![RequirementCandidate]
|
||||
, recentEscalations :: ![RequirementCandidate]
|
||||
, allAnnotations :: ![Annotation]
|
||||
}
|
||||
|
||||
instance View TriageDashboardView where
|
||||
html TriageDashboardView { .. } = [hsx|
|
||||
{autoRefreshMeta}
|
||||
<div class="mb-6 flex items-center gap-2 text-sm text-gray-500">
|
||||
<a href={HubsAction} class="hover:text-gray-700">Hubs</a>
|
||||
<span>/</span>
|
||||
<a href={ShowHubAction { hubId = hub.id }} class="hover:text-gray-700">{hub.name}</a>
|
||||
<span>/</span>
|
||||
<span>Triage Dashboard</span>
|
||||
</div>
|
||||
|
||||
<div class="flex items-center justify-between mb-6">
|
||||
<h1 class="text-2xl font-semibold">Triage Dashboard — {hub.name}</h1>
|
||||
<a href={RequirementCandidatesAction}
|
||||
class="text-sm border border-gray-300 px-3 py-1.5 rounded hover:bg-gray-50">
|
||||
All Candidates
|
||||
</a>
|
||||
</div>
|
||||
|
||||
<!-- KPI row -->
|
||||
<div class="grid grid-cols-5 gap-3 mb-8">
|
||||
{renderKpi "Open" "open" allCandidates "bg-blue-50 border-blue-200 text-blue-800"}
|
||||
{renderKpi "In Review" "in_review" allCandidates "bg-yellow-50 border-yellow-200 text-yellow-800"}
|
||||
{renderKpi "Accepted" "accepted" allCandidates "bg-green-50 border-green-200 text-green-800"}
|
||||
{renderKpi "Rejected" "rejected" allCandidates "bg-red-50 border-red-200 text-red-800"}
|
||||
{renderKpi "Deferred" "deferred" allCandidates "bg-gray-50 border-gray-200 text-gray-700"}
|
||||
</div>
|
||||
|
||||
<div class="grid grid-cols-2 gap-6 mb-8">
|
||||
<!-- Triage queue -->
|
||||
<section>
|
||||
<h2 class="text-lg font-medium mb-3">Triage Queue (Open)</h2>
|
||||
{if null triageQueue
|
||||
then [hsx|<p class="text-sm text-gray-400">Queue empty.</p>|]
|
||||
else [hsx|
|
||||
<div class="space-y-2">
|
||||
{forEach triageQueue (renderQueueItem widgets)}
|
||||
</div>
|
||||
|]}
|
||||
</section>
|
||||
|
||||
<!-- Recent escalations -->
|
||||
<section>
|
||||
<h2 class="text-lg font-medium mb-3">Recent Escalations</h2>
|
||||
{if null recentEscalations
|
||||
then [hsx|<p class="text-sm text-gray-400">No escalations yet.</p>|]
|
||||
else [hsx|
|
||||
<div class="space-y-2">
|
||||
{forEach recentEscalations (renderEscalationItem widgets)}
|
||||
</div>
|
||||
|]}
|
||||
</section>
|
||||
</div>
|
||||
|
||||
<!-- Category breakdown -->
|
||||
<section>
|
||||
<h2 class="text-lg font-medium mb-3">Annotation Category Breakdown</h2>
|
||||
{renderCategoryBreakdown allAnnotations}
|
||||
</section>
|
||||
|]
|
||||
|
||||
renderKpi :: Text -> Text -> [RequirementCandidate] -> Text -> Html
|
||||
renderKpi label status candidates colorClass =
|
||||
let n = length $ filter (\c -> c.status == status) candidates
|
||||
in [hsx|
|
||||
<div class={"rounded-lg border p-4 " <> colorClass}>
|
||||
<p class="text-xs font-medium uppercase tracking-wide opacity-70">{label}</p>
|
||||
<p class="text-3xl font-semibold mt-1">{show n}</p>
|
||||
</div>
|
||||
|]
|
||||
|
||||
renderQueueItem :: [Widget] -> RequirementCandidate -> Html
|
||||
renderQueueItem widgets c =
|
||||
let mWidget = find (\w -> w.id == c.sourceWidgetId) widgets
|
||||
age = show c.createdAt
|
||||
in [hsx|
|
||||
<div class="bg-white rounded border border-gray-200 px-4 py-3">
|
||||
<div class="flex items-start justify-between gap-2">
|
||||
<a href={ShowRequirementCandidateAction { requirementCandidateId = c.id }}
|
||||
class="text-sm font-medium text-indigo-600 hover:text-indigo-800 leading-snug">
|
||||
{c.title}
|
||||
</a>
|
||||
<span class="text-xs text-gray-400 whitespace-nowrap shrink-0">{age}</span>
|
||||
</div>
|
||||
<div class="mt-1 flex gap-2 text-xs text-gray-500">
|
||||
<span>{maybe "—" (.name) mWidget}</span>
|
||||
<span class="text-gray-300">·</span>
|
||||
<span class="bg-gray-100 px-1.5 rounded">{c.category}</span>
|
||||
</div>
|
||||
</div>
|
||||
|]
|
||||
|
||||
renderEscalationItem :: [Widget] -> RequirementCandidate -> Html
|
||||
renderEscalationItem widgets c =
|
||||
let mWidget = find (\w -> w.id == c.sourceWidgetId) widgets
|
||||
in [hsx|
|
||||
<div class="bg-white rounded border border-gray-200 px-4 py-3">
|
||||
<div class="flex items-center gap-2 mb-1">
|
||||
<span class={statusClass c.status <> " text-xs px-2 py-0.5 rounded"}>{c.status}</span>
|
||||
<span class="text-xs text-gray-500">{maybe "—" (.name) mWidget}</span>
|
||||
</div>
|
||||
<a href={ShowRequirementCandidateAction { requirementCandidateId = c.id }}
|
||||
class="text-sm text-indigo-600 hover:text-indigo-800">{c.title}</a>
|
||||
</div>
|
||||
|]
|
||||
|
||||
renderCategoryBreakdown :: [Annotation] -> Html
|
||||
renderCategoryBreakdown annotations =
|
||||
let categories = ["friction", "defect", "wish", "policy_concern", "doc_gap", "trust", "other"]
|
||||
counts = map (\cat -> (cat, length $ filter (\a -> a.category == cat) annotations)) categories
|
||||
nonZero = filter (\(_, n) -> n > 0) counts
|
||||
total = length annotations
|
||||
in if total == 0
|
||||
then [hsx|<p class="text-sm text-gray-400">No annotations yet.</p>|]
|
||||
else [hsx|
|
||||
<div class="bg-white rounded-lg border border-gray-200 p-4">
|
||||
<div class="space-y-2">
|
||||
{forEach nonZero (renderCategoryBar total)}
|
||||
</div>
|
||||
</div>
|
||||
|]
|
||||
|
||||
renderCategoryBar :: Int -> (Text, Int) -> Html
|
||||
renderCategoryBar total (cat, n) =
|
||||
let pct = if total > 0 then (n * 100) `div` total else 0
|
||||
in [hsx|
|
||||
<div class="flex items-center gap-3 text-sm">
|
||||
<span class="w-32 text-gray-600 text-xs">{cat}</span>
|
||||
<div class="flex-1 bg-gray-100 rounded-full h-2">
|
||||
<div class="bg-indigo-500 h-2 rounded-full" style={"width: " <> show pct <> "%"}></div>
|
||||
</div>
|
||||
<span class="w-8 text-right text-xs text-gray-500">{show n}</span>
|
||||
</div>
|
||||
|]
|
||||
|
||||
statusClass :: Text -> Text
|
||||
statusClass "open" = "bg-blue-100 text-blue-700"
|
||||
statusClass "in_review" = "bg-yellow-100 text-yellow-800"
|
||||
statusClass "accepted" = "bg-green-100 text-green-800"
|
||||
statusClass "rejected" = "bg-red-100 text-red-800"
|
||||
statusClass "deferred" = "bg-gray-100 text-gray-600"
|
||||
statusClass _ = "bg-gray-100 text-gray-600"
|
||||
Reference in New Issue
Block a user