generated from coulomb/repo-seed
Bernd Worsch
ce42607fca
Convert all remaining `<- paramOrNothing / param / paramOrDefault /
currentUserOrNothing` monadic binds to `let` — these functions are pure
(ImplicitParams-based) in IHP v1.5, so `<-` is a type error in an IO
do-block.
Controllers fixed:
AgentDelegations, AiGovernancePolicies, Annotations, ApiConsumers,
CollectiveProposals, DecisionRecords, DeploymentRecords,
HubCapabilityManifests, HubRoutingRules, InstitutionalKnowledge,
OutcomeCorrelations, RequirementCandidates, TypeRegistries,
WebhookSubscriptions, Widgets,
Api/V2/{Annotations,InteractionEvents,Token}
WebhookSubscriptions: remove orphaned `Right () ->` case arm that was
left inside a bare `unless` block (structural parse error).
Also carries forward all in-progress fixes from the working tree:
helpers (AgentBridge, ApiRateLimit, BottleneckDetector,
CrossHubPropagation, FrictionScore),
views (CanSelect instances, HSX lambda extraction, formFor wrappers),
env/build (envrc GHCi perms, flake.nix Tailwind + GHC resource limits,
static/app.css additional Tailwind output).
Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
85 lines
3.3 KiB
Haskell
85 lines
3.3 KiB
Haskell
module Web.Controller.MarketplaceDashboard where
|
|
|
|
import Web.Types
|
|
import Web.View.MarketplaceDashboard.Show
|
|
import Generated.Types
|
|
import IHP.Prelude
|
|
import IHP.ControllerPrelude
|
|
import Database.PostgreSQL.Simple (Query)
|
|
|
|
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"
|