fix(WP-0017/E4): Layer 3 error fixes — round 2 (18 files)

Fixes 46 compile errors across 18 controllers and views:
- BridgeResponse missing from explicit import lists (Widgets, RequirementCandidates,
  DecisionRecords, AgentDelegations) — dot-notation HasField resolution fails without
  the type in scope under DuplicateRecordFields
- unId not in IHP v1.5 — replaced all fmap (Id . unId) with fmap coerce
- respondWith not in IHP — replaced with plain redirectTo in 5 controllers
- [hubId] list param to sqlQuery — replaced with (Only hubId) tuple
- deleteWhere not in IHP — replaced with query/filterWhere/fetch/deleteRecords
- fill @'["label"] mismatch — field is label_ in generated types, not label
- PersistUUID/toUUID (persistent-style) — replaced with (Only id)
- intercalate + jsonArrayTexts ambiguity in GovernanceTemplates — hid Index import,
  removed local duplicates, added Data.Text (intercalate)
- Int16 not in scope in AntifragilityDashboard — changed to Int (score :: Int)
- typeArraySection type mismatch in HubCapabilityManifests/Edit — unified to [Text]
- renderForm arity mismatch — added action param to DecisionRecords/New.renderForm
- Missing qualified Data.Aeson import in AdaptiveThresholds
- Missing ?request::Request constraint in Api/V2/WidgetPatterns.renderJsonWithStatus

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

Web/Controller/TypeRegistries.hs

@@ -37,7 +37,7 @@ instance Controller TypeRegistriesController where
         let entry = newRecord @WidgetTypeRegistry
         hubs <- query @Hub |> fetch
         entry
-            |> fill @'["name", "label", "description", "ownerHubId"]
+            |> fill @'["name", "label_", "description", "ownerHubId"]
             |> validateField #name nonEmpty
             |> validateField #label_ nonEmpty
             |> ifValid \case
@@ -57,7 +57,7 @@ instance Controller TypeRegistriesController where
         hubs <- query @Hub |> fetch
         -- name is immutable after creation
         entry
-            |> fill @'["label", "description", "ownerHubId"]
+            |> fill @'["label_", "description", "ownerHubId"]
             |> validateField #label_ nonEmpty
             |> ifValid \case
                 Left entry -> render EditWidgetTypeView { entry, hubs }
@@ -104,7 +104,7 @@ instance Controller TypeRegistriesController where
         let entry = newRecord @EventTypeRegistry
         hubs <- query @Hub |> fetch
         entry
-            |> fill @'["name", "label", "description", "ownerHubId"]
+            |> fill @'["name", "label_", "description", "ownerHubId"]
             |> validateField #name nonEmpty
             |> validateField #label_ nonEmpty
             |> ifValid \case
@@ -123,7 +123,7 @@ instance Controller TypeRegistriesController where
         entry <- fetch eventTypeRegistryId
         hubs <- query @Hub |> fetch
         entry
-            |> fill @'["label", "description", "ownerHubId"]
+            |> fill @'["label_", "description", "ownerHubId"]
             |> validateField #label_ nonEmpty
             |> ifValid \case
                 Left entry -> render EditEventTypeView { entry, hubs }
@@ -170,7 +170,7 @@ instance Controller TypeRegistriesController where
         let entry = newRecord @AnnotationCategoryRegistry
         hubs <- query @Hub |> fetch
         entry
-            |> fill @'["name", "label", "description", "ownerHubId"]
+            |> fill @'["name", "label_", "description", "ownerHubId"]
             |> validateField #name nonEmpty
             |> validateField #label_ nonEmpty
             |> ifValid \case
@@ -189,7 +189,7 @@ instance Controller TypeRegistriesController where
         entry <- fetch annotationCategoryRegistryId
         hubs <- query @Hub |> fetch
         entry
-            |> fill @'["label", "description", "ownerHubId"]
+            |> fill @'["label_", "description", "ownerHubId"]
             |> validateField #label_ nonEmpty
             |> ifValid \case
                 Left entry -> render EditAnnotationCategoryView { entry, hubs }
@@ -236,7 +236,7 @@ instance Controller TypeRegistriesController where
         let entry = newRecord @PolicyScopeRegistry
         hubs <- query @Hub |> fetch
         entry
-            |> fill @'["name", "label", "description", "ownerHubId"]
+            |> fill @'["name", "label_", "description", "ownerHubId"]
             |> validateField #name nonEmpty
             |> validateField #label_ nonEmpty
             |> ifValid \case
@@ -255,7 +255,7 @@ instance Controller TypeRegistriesController where
         entry <- fetch policyScopeRegistryId
         hubs <- query @Hub |> fetch
         entry
-            |> fill @'["label", "description", "ownerHubId"]
+            |> fill @'["label_", "description", "ownerHubId"]
             |> validateField #label_ nonEmpty
             |> ifValid \case
                 Left entry -> render EditPolicyScopeView { entry, hubs }