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/Controller/MarketplaceDashboard.hs

@@ -0,0 +1,83 @@
+module Web.Controller.MarketplaceDashboard where
+
+import Web.Types
+import Web.View.MarketplaceDashboard.Show
+import Generated.Types
+import IHP.Prelude
+import IHP.ControllerPrelude
+
+instance Controller MarketplaceDashboardController where
+    beforeAction = ensureIsUser
+
+    action MarketplaceDashboardAction = autoRefresh do
+        let mSearch  = paramOrNothing @Text "q"
+        let mWType   = paramOrNothing @Text "widgetType"
+        let sortBy   = paramOrDefault @Text "adopted" "sort"
+
+        -- Widget patterns: full-text search + filter
+        patterns <- sqlQuery (patternQuery mSearch mWType sortBy) ()
+
+        -- Governance templates: full-text search
+        templates <- sqlQuery (templateQuery mSearch) ()
+
+        -- Trending patterns (most adoptions in last 30 days)
+        trending <- sqlQuery
+            "SELECT wp.id, wp.name, wp.widget_type, COUNT(pa.id) AS recent_adoptions \
+            \ FROM widget_patterns wp \
+            \ JOIN pattern_adoptions pa ON pa.widget_pattern_id = wp.id \
+            \ WHERE wp.is_published = TRUE \
+            \   AND pa.adopted_at >= NOW() - INTERVAL '30 days' \
+            \ GROUP BY wp.id, wp.name, wp.widget_type \
+            \ ORDER BY recent_adoptions DESC \
+            \ LIMIT 5"
+            ()
+
+        widgetTypeOptions <- sqlQuery
+            "SELECT name, label FROM widget_type_registry WHERE status = 'active' ORDER BY label"
+            ()
+
+        render ShowView
+            { patterns, templates, trending
+            , widgetTypeOptions
+            , searchQuery   = mSearch
+            , selectedType  = mWType
+            , sortOrder     = sortBy
+            }
+
+-- | Widget pattern list query with optional search and type filter.
+patternQuery :: Maybe Text -> Maybe Text -> Text -> Query
+patternQuery mSearch mWType sortBy =
+    let baseWhere = "wp.is_published = TRUE"
+        searchClause = case mSearch of
+            Nothing -> ""
+            Just _  -> " AND to_tsvector('english', wp.name || ' ' || COALESCE(wp.description,'')) \
+                       \     @@ plainto_tsquery(?)"
+        typeClause = case mWType of
+            Nothing -> ""
+            Just _  -> " AND wp.widget_type = ?"
+        orderClause = case sortBy of
+            "recent"  -> "wp.created_at DESC"
+            "alpha"   -> "wp.name ASC"
+            _         -> "adopter_count DESC"
+    in "SELECT wp.*, COUNT(pa.id) AS adopter_count \
+       \ FROM widget_patterns wp \
+       \ LEFT JOIN pattern_adoptions pa ON pa.widget_pattern_id = wp.id \
+       \ WHERE " <> baseWhere <> searchClause <> typeClause <>
+       " GROUP BY wp.id \
+       \ ORDER BY " <> orderClause <>
+       " LIMIT 50"
+
+-- | Governance template list query with optional search.
+templateQuery :: Maybe Text -> Query
+templateQuery mSearch =
+    let searchClause = case mSearch of
+            Nothing -> ""
+            Just _  -> " AND to_tsvector('english', gt.name || ' ' || COALESCE(gt.description,'')) \
+                       \     @@ plainto_tsquery(?)"
+    in "SELECT gt.*, COUNT(gtc.id) AS clone_count \
+       \ FROM governance_templates gt \
+       \ LEFT JOIN governance_template_clones gtc ON gtc.governance_template_id = gt.id \
+       \ WHERE gt.is_published = TRUE" <> searchClause <>
+       " GROUP BY gt.id \
+       \ ORDER BY clone_count DESC \
+       \ LIMIT 50"