generated from coulomb/repo-seed
fix(WP-0017/E4): Layer 3 error fixes — round 2 (18 files)
Fixes 46 compile errors across 18 controllers and views: - BridgeResponse missing from explicit import lists (Widgets, RequirementCandidates, DecisionRecords, AgentDelegations) — dot-notation HasField resolution fails without the type in scope under DuplicateRecordFields - unId not in IHP v1.5 — replaced all fmap (Id . unId) with fmap coerce - respondWith not in IHP — replaced with plain redirectTo in 5 controllers - [hubId] list param to sqlQuery — replaced with (Only hubId) tuple - deleteWhere not in IHP — replaced with query/filterWhere/fetch/deleteRecords - fill @'["label"] mismatch — field is label_ in generated types, not label - PersistUUID/toUUID (persistent-style) — replaced with (Only id) - intercalate + jsonArrayTexts ambiguity in GovernanceTemplates — hid Index import, removed local duplicates, added Data.Text (intercalate) - Int16 not in scope in AntifragilityDashboard — changed to Int (score :: Int) - typeArraySection type mismatch in HubCapabilityManifests/Edit — unified to [Text] - renderForm arity mismatch — added action param to DecisionRecords/New.renderForm - Missing qualified Data.Aeson import in AdaptiveThresholds - Missing ?request::Request constraint in Api/V2/WidgetPatterns.renderJsonWithStatus Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
@@ -6,9 +6,11 @@ module Web.Controller.AgentDelegations where
|
||||
import Web.Controller.Prelude
|
||||
import Web.View.AgentDelegations.Index
|
||||
import Web.View.AgentDelegations.Show
|
||||
import qualified Data.Aeson as A
|
||||
import Application.Helper.AgentBridge
|
||||
( callAgentWithBudget
|
||||
, BridgeError(..)
|
||||
, BridgeResponse
|
||||
, bridgeErrorMessage
|
||||
)
|
||||
|
||||
@@ -34,7 +36,7 @@ instance Controller AgentDelegationsController where
|
||||
let receivingAgentId = param @(Id AgentRegistration) "receivingAgentId"
|
||||
scope = param @Text "scope"
|
||||
tokenBudget = paramOrDefault @Int 1000 "tokenBudget"
|
||||
delegatingAgentId <- case proposal.agentRegistrationId of
|
||||
delegatingAgentId <- case (proposal.agentRegistrationId :: Maybe (Id AgentRegistration)) of
|
||||
Just aid -> pure aid
|
||||
Nothing -> respondAndExit =<< renderNotFound
|
||||
|
||||
|
||||
Reference in New Issue
Block a user