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>
42 lines
1.3 KiB
Haskell
42 lines
1.3 KiB
Haskell
module Web.Controller.Api.V2.Widgets where
|
|
|
|
import Web.Types
|
|
import Generated.Types
|
|
import IHP.Prelude
|
|
import IHP.ControllerPrelude
|
|
import Data.Aeson (object, (.=), ToJSON, toJSON)
|
|
import Web.Controller.Api.V2.Auth (requireApiConsumer, paginatedResponse, getPageParams)
|
|
|
|
instance Controller ApiV2WidgetsController where
|
|
|
|
action ApiV2IndexWidgetsAction = do
|
|
_consumer <- requireApiConsumer
|
|
(page, perPage) <- getPageParams
|
|
let pageOffset = (page - 1) * perPage
|
|
total <- query @Widget |> fetchCount
|
|
widgets <- query @Widget
|
|
|> orderByDesc #createdAt
|
|
|> limit perPage
|
|
|> offset pageOffset
|
|
|> fetch
|
|
renderJson $ paginatedResponse (map widgetToJson widgets) page perPage total
|
|
|
|
action ApiV2ShowWidgetAction { widgetId } = do
|
|
_consumer <- requireApiConsumer
|
|
widget <- fetch widgetId
|
|
renderJson (widgetToJson widget)
|
|
|
|
widgetToJson :: Widget -> Value
|
|
widgetToJson w = object
|
|
[ "id" .= w.id
|
|
, "hubId" .= w.hubId
|
|
, "name" .= w.name
|
|
, "widgetType" .= w.widgetType
|
|
, "capabilityRef" .= w.capabilityRef
|
|
, "viewContext" .= w.viewContext
|
|
, "policyScope" .= w.policyScope
|
|
, "status" .= w.status
|
|
, "version" .= w.version
|
|
, "createdAt" .= w.createdAt
|
|
]
|