feat(WP-0011): IHF Phase 10 — Hub Registry and Widget Marketplace

Delivers the hub registry discovery UI, widget pattern library,
governance template library, and marketplace dashboard.

Key changes:
- Schema: widget_patterns (widget_type FK to registry), widget_pattern_versions,
  pattern_adoptions, governance_templates (categories JSONB, validated at
  controller), governance_template_clones — all GAAF-compliant, no bare TEXT
  type discriminators
- Migration: 1743897600-ihf-phase10-hub-registry.sql
- HubRegistry controller + views: browsable view over hub_capability_manifests,
  hub_health_snapshots, hubs with per-hub GAAF compliance indicator
- WidgetPatterns controller + views: publish, version, adopt; adoption
  triggers manifest amendment draft when new types are introduced
- GovernanceTemplates controller + views: CRUD, clone with category
  validation against annotation_category_registry
- MarketplaceDashboard controller + view: full-text search, widget-type
  filter, sort, trending panel, autoRefresh
- API v2: /api/v2/hub-registry, /api/v2/widget-patterns (+ adopt endpoint)
- OpenAPI spec updated with Phase 10 paths
- GAAF scorecard: Customization 2.5 → 3.2; overall 3.41 → 3.56 (Strong)
- CLAUDE.md: Phase 10 complete; active workplan → Phase 11

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

Web/View/HubRegistry/Index.hs

@@ -0,0 +1,84 @@
+module Web.View.HubRegistry.Index where
+
+import Web.Types
+import Web.Controller.HubRegistry (HubRegistryRow(..), GaafStatus(..), gaafStatus)
+import Generated.Types
+import IHP.Prelude
+import IHP.ViewPrelude
+import Data.Aeson (Value(..))
+import qualified Data.Vector as V
+
+data IndexView = IndexView
+    { registryRows :: ![HubRegistryRow]
+    }
+
+instance View IndexView where
+    html IndexView { .. } = [hsx|
+        <div class="flex items-center justify-between mb-6">
+            <div>
+                <h1 class="text-2xl font-semibold">Hub Registry</h1>
+                <p class="text-sm text-gray-500 mt-1">
+                    All registered hubs with capability manifests and health status.
+                </p>
+            </div>
+            <a href={MarketplaceDashboardAction}
+               class="text-sm border border-indigo-300 text-indigo-700 px-3 py-1.5 rounded hover:bg-indigo-50">
+                Marketplace
+            </a>
+        </div>
+
+        <div class="space-y-3">
+            {forEach registryRows renderRow}
+            {if null registryRows
+                then [hsx|<p class="text-sm text-gray-400">No hubs registered yet.</p>|]
+                else mempty}
+        </div>
+    |]
+
+renderRow :: HubRegistryRow -> Html
+renderRow row@HubRegistryRow { hub, mManifest, mLatestSnapshot } =
+    let gs = gaafStatus mManifest
+        wCount  = maybe 0 (jsonArrayLen . (.declaredWidgetTypes)) mManifest
+        eCount  = maybe 0 (jsonArrayLen . (.declaredEventTypes)) mManifest
+        cCount  = maybe 0 (jsonArrayLen . (.declaredAnnotationCategories)) mManifest
+        score   = fmap (.healthScore) mLatestSnapshot
+    in [hsx|
+    <div class="bg-white rounded-lg border border-gray-200 p-4 hover:border-indigo-200">
+        <div class="flex items-center justify-between">
+            <div class="flex items-center gap-3">
+                <a href={ShowHubRegistryAction { hubId = hub.id }}
+                   class="font-medium text-indigo-700 hover:underline">
+                    {hub.name}
+                </a>
+                <span class="text-xs text-gray-400 font-mono">{hub.hubKind}</span>
+                {gaafBadge gs}
+            </div>
+            <div class="flex items-center gap-4 text-xs text-gray-500">
+                {maybe mempty healthScoreBadge score}
+                <span>{tshow wCount} widget types</span>
+                <span>{tshow eCount} event types</span>
+                <span>{tshow cCount} categories</span>
+            </div>
+        </div>
+        <p class="text-xs text-gray-400 mt-1">{hub.domain}</p>
+    </div>
+|]
+
+gaafBadge :: GaafStatus -> Html
+gaafBadge GaafCompliant  =
+    [hsx|<span class="px-2 py-0.5 rounded text-xs bg-green-100 text-green-800">GAAF compliant</span>|]
+gaafBadge GaafDraftOnly  =
+    [hsx|<span class="px-2 py-0.5 rounded text-xs bg-amber-100 text-amber-800">draft manifest</span>|]
+gaafBadge GaafNoManifest =
+    [hsx|<span class="px-2 py-0.5 rounded text-xs bg-red-100 text-red-700">no manifest</span>|]
+
+healthScoreBadge :: Int -> Html
+healthScoreBadge s =
+    let cls = if s >= 80 then "bg-green-100 text-green-800"
+              else if s >= 50 then "bg-amber-100 text-amber-800"
+              else "bg-red-100 text-red-700"
+    in [hsx|<span class={"px-2 py-0.5 rounded text-xs " <> cls}>health {tshow s}</span>|]
+
+jsonArrayLen :: Value -> Int
+jsonArrayLen (Array v) = V.length v
+jsonArrayLen _         = 0