feat(P8): IHF Phase 8 complete — Federated Hub Maturity

Implements the final phase of the IHF v0.1 specification:

- WidgetOwnership: delegated ownership registry (local/delegated/global),
  append-only audit artefacts, ownership badge on widget show page
- HubRoutingRule + RoutingEngine: priority-ordered inter-hub routing engine;
  null-inclusive category/widget-type matching; RouteNowAction for manual
  re-evaluation; RoutedCandidates view per hub
- FederatedPolicyOverlay: draft → active → retired lifecycle; activated
  overlays are immutable (same pattern as Phase 6 contracts); policy
  compliance dashboard with decision coverage metrics
- StewardshipRole: named governance roles per hub; point-in-time revocation
  pattern; hub and ops-board integration
- ArchiveRecord + is_archived: soft-delete on widgets; lineage inspector
  traces full traceability chain (Widget → Events → Annotations → Candidates
  → Requirements → Decisions → Deployments → Signals + ArchiveRecord)
- FederatedGovernanceDashboard: 5-panel autoRefresh org-wide governance view
  (ownership coverage, routing activity, policy compliance, stewardship
  coverage, archive activity)

Schema: widget_ownerships, hub_routing_rules, federated_policy_overlays,
stewardship_roles, archive_records; ALTER widgets ADD is_archived;
ALTER requirement_candidates ADD routed_to_hub_id

Migration: 1743638400-ihf-phase8-federated-hub-maturity.sql
Tests: Phase 8 integration tests appended to Test/Integration.hs
Docs: docs/phase8-summary.md; SCOPE.md updated to Phase 8 complete

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

Web/Controller/ArchiveRecords.hs

@@ -0,0 +1,56 @@
+module Web.Controller.ArchiveRecords where
+
+import Web.Types
+import Web.View.ArchiveRecords.Index
+import Web.View.ArchiveRecords.Show
+import Web.View.ArchiveRecords.LineageInspector
+import Generated.Types
+import IHP.Prelude
+import IHP.ControllerPrelude
+
+instance Controller ArchiveRecordsController where
+    beforeAction = ensureIsUser
+
+    action ArchiveRecordsAction = do
+        records <- query @ArchiveRecord |> orderByDesc #archivedAt |> fetch
+        render IndexView { records }
+
+    action ShowArchiveRecordAction { archiveRecordId } = do
+        record <- fetch archiveRecordId
+        render ShowView { record }
+
+    action ArchiveWidgetAction { widgetId } = do
+        widget <- fetch widgetId
+        now    <- getCurrentTime
+        widget |> set #isArchived True |> updateRecord
+        newRecord @ArchiveRecord
+            |> set #subjectType  "Widget"
+            |> set #subjectId    (coerce widgetId)
+            |> set #archivedAt   now
+            |> set #reason       "Archived via UI"
+            |> set #archivedBy   "operator"
+            |> createRecord
+        setSuccessMessage "Widget archived"
+        redirectTo ShowWidgetAction { widgetId }
+
+    action LineageInspectorAction { widgetId } = do
+        widget      <- fetch widgetId
+        events      <- sqlQuery "SELECT * FROM interaction_events WHERE widget_id = ? ORDER BY occurred_at DESC LIMIT 50" (Only widgetId)
+        annotations <- query @Annotation |> filterWhere (#widgetId, widgetId) |> orderByDesc #createdAt |> fetch
+        candidates  <- query @RequirementCandidate |> filterWhere (#sourceWidgetId, widgetId) |> fetch
+        let candidateIds = map (.id) candidates
+            acceptedIds  = map (.id) (filter (\c -> c.status == "accepted") candidates)
+        requirements <- query @Requirement |> filterWhereIn (#sourceCandidateId, acceptedIds) |> fetch
+        let reqIds = map (.id) requirements
+        decisions   <- query @DecisionRecord |> filterWhereIn (#requirementId, map Just reqIds) |> fetch
+        let decisionIds = map (.id) decisions
+        deployments  <- query @DeploymentRecord |> filterWhereIn (#decisionId, decisionIds) |> fetch
+        signals      <- query @OutcomeSignal |> filterWhere (#widgetId, widgetId) |> fetch
+        archiveEntry <- fetchOneOrNothing (Id (coerce widgetId) :: Id ArchiveRecord)
+        -- archiveEntry lookup by subject_id
+        mArchive <- do
+            rs <- sqlQuery "SELECT * FROM archive_records WHERE subject_id = ? AND subject_type = 'Widget' ORDER BY archived_at DESC LIMIT 1" (Only widgetId)
+            pure (listToMaybe (rs :: [ArchiveRecord]))
+        render LineageInspectorView
+            { widget, events, annotations, candidates, requirements
+            , decisions, deployments, signals, mArchive }