generated from coulomb/repo-seed
Bernd Worsch
6e8972f828
Some checks failed
Test / test (push) Has been cancelled
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>
84 lines
3.2 KiB
Haskell
84 lines
3.2 KiB
Haskell
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"
|