feat(P7): IHF Phase 7 complete — advanced observability and operational integration

T01 schema: friction_scores, bottleneck_records, hub_health_snapshots,
cross_hub_propagations + migration 1743552000.

T02 Widget Pain Heatmap: computeFrictionScore (formula documented), RecomputeFriction
action, colour-coded grid view (green/yellow/amber/red).

T03 Workflow Bottleneck Analysis: detectBottlenecks across 4 pipeline stages
(candidate 30d, requirement 60d, decision 30d, observation 14d), idempotent,
severity from age ratio, resolve action.

T04 Hub Health Correlation: computeHubHealth (deduction table documented),
append-only HubHealthSnapshot, health history view, badge on hub Show page.

T05 Cross-Hub Propagation: annotation_cluster + widget_type_friction heuristics,
idempotent detection, acknowledge/resolve lifecycle.

T06 Operational Review Board: 4-panel AutoRefresh global dashboard — health matrix,
top-10 friction, bottleneck stage counts, open propagations.

T07 gate: 5 describe blocks in Test/Integration.hs; SCOPE.md updated Phase 7
complete; docs/phase7-summary.md written.

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

Application/Helper/HubHealth.hs

@@ -0,0 +1,74 @@
+module Application.Helper.HubHealth where
+
+import IHP.Prelude
+import IHP.ModelSupport
+import Generated.Types
+import Data.Time.Clock (addUTCTime, getCurrentTime)
+
+-- | Health score deduction table (documented):
+--
+--   -5  per open RequirementCandidate
+--   -10 per regressed widget
+--   -8  per stale DecisionRecord (decided > 30 days, no deployment)
+--   -12 per active critical BottleneckRecord
+--   -6  per active high BottleneckRecord
+--   floor at 0, ceiling at 100
+--
+computeHubHealth
+    :: (?modelContext :: ModelContext)
+    => Id Hub
+    -> [Widget]
+    -> [RequirementCandidate]
+    -> [DecisionRecord]
+    -> [DeploymentRecord]
+    -> [OutcomeSignal]
+    -> [Annotation]
+    -> [BottleneckRecord]
+    -> IO HubHealthSnapshot
+computeHubHealth hubId widgets candidates decisions deployments signals annotations bottlenecks = do
+    now <- getCurrentTime
+    let thirtyDaysAgo = addUTCTime (negate $ 30 * 86400) now
+
+        openCandidates   = filter (\c -> c.status == "open") candidates
+        regressedWids    = regressedWidgetIds signals annotations
+        linkedDecIds     = map (.decisionId) deployments
+        staleDecisions'  = filter (\d -> d.decidedAt < thirtyDaysAgo && d.id `notElem` linkedDecIds) decisions
+        activeBN         = filter (\b -> isNothing b.resolvedAt) bottlenecks
+        criticalBN       = filter (\b -> b.severity == "critical") activeBN
+        highBN           = filter (\b -> b.severity == "high") activeBN
+
+        openCount    = length openCandidates
+        regCount     = length regressedWids
+        staleDecCount = length staleDecisions'
+        activeBNCount = length activeBN
+
+        deductions = openCount * 5
+                   + regCount * 10
+                   + staleDecCount * 8
+                   + length criticalBN * 12
+                   + length highBN * 6
+        score = max 0 (100 - deductions)
+
+    newRecord @HubHealthSnapshot
+        |> set #hubId           hubId
+        |> set #healthScore     score
+        |> set #openCandidates  openCount
+        |> set #regressedWidgets regCount
+        |> set #staleDecisions  staleDecCount
+        |> set #activeBottlenecks activeBNCount
+        |> createRecord
+
+-- | Re-export from Application.Helper.Controller to avoid circular imports.
+regressedWidgetIds :: [OutcomeSignal] -> [Annotation] -> [Id Widget]
+regressedWidgetIds signals annotations =
+    let negSignalWids = [ s.widgetId | s <- signals, s.signalType == "negative" ]
+        negAnnotWids  = [ a.widgetId | a <- annotations, a.category == "regression" ]
+    in nub (negSignalWids <> negAnnotWids)
+
+-- | Colour class for health score badge.
+healthScoreBadge :: Int -> Text
+healthScoreBadge s
+    | s >= 80   = "bg-green-100 text-green-800"
+    | s >= 60   = "bg-yellow-100 text-yellow-800"
+    | s >= 40   = "bg-orange-100 text-orange-800"
+    | otherwise = "bg-red-100 text-red-800"