generated from coulomb/repo-seed
Bernd Worsch
0f505feb2d
Closes the long-range feedback loop: outcome signals now enrich the full
traceability chain and feed back into routing, triage, and AI proposals.
Schema (T01):
- outcome_correlations (CHECK correlation_type)
- pattern_performance_records
- adaptive_threshold_configs
- institutional_knowledge_entries (GIN tsvector FTS)
- learning_insights (CHECK insight_type)
- ALTER TABLE decision_records + requirement_candidates: outcome_summary JSONB
- AFTER INSERT trigger trg_enrich_lineage on outcome_signals
- contracts/core/ updated (outcome-summary-columns-v1, append-only addendum)
Correlation engine (T02):
- Application/Helper/CorrelationEngine.hs: pure annotation→outcome SQL
- Web/Controller/OutcomeCorrelations.hs: ComputeCorrelationsAction + index
Pattern performance (T03):
- Web/Controller/PatternPerformance.hs: ComputePatternPerformanceAction
Adaptive thresholds (T04):
- Web/Controller/AdaptiveThresholds.hs: CalibrateThresholdsAction
- Application/Helper/FrictionScore.hs: applyAdaptiveWeights
Institutional knowledge (T05):
- DistilDecisionAction in DecisionRecords controller
- Web/Controller/InstitutionalKnowledge.hs: QueryKnowledgeBaseAction
Lineage enrichment (T06):
- Web/Controller/LineageEnrichment.hs: EnrichLineageAction (batch backfill)
- enrich_lineage_on_outcome_batch() PL/pgSQL helper in migration
Learning dashboard (T07):
- Web/Controller/LearningDashboard.hs: 5-panel autoRefresh view
- "Learning" nav link in FrontController
API v2 learning endpoints (T08):
- GET /api/v2/outcome-correlations, /pattern-performance, /knowledge-base/{id}
- OpenAPI schemas: OutcomeCorrelation, PatternPerformanceRecord, InstitutionalKnowledgeEntry
GAAF scorecard + docs (T09):
- Core 3.8→3.9, Functional 3.6→3.8, overall 3.61→3.68
- CLAUDE.md: IHF v0.2 complete, no active workplan
Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
203 lines
10 KiB
Haskell
203 lines
10 KiB
Haskell
module Web.FrontController where
|
|
|
|
import IHP.RouterPrelude
|
|
import IHP.LoginSupport.Middleware
|
|
import IHP.ControllerPrelude (getAppConfig)
|
|
import Generated.Types
|
|
import Web.Types
|
|
import Web.Routes ()
|
|
import Config (AnnotationLauncherEnabled (..))
|
|
|
|
-- Controllers
|
|
import Web.Controller.Hubs ()
|
|
import Web.Controller.Widgets ()
|
|
import Web.Controller.InteractionEvents ()
|
|
import Web.Controller.Annotations ()
|
|
import Web.Controller.AnnotationThreads ()
|
|
import Web.Controller.RequirementCandidates ()
|
|
import Web.Controller.Requirements ()
|
|
import Web.Controller.DecisionRecords ()
|
|
import Web.Controller.DeploymentRecords ()
|
|
import Web.Controller.AgentProposals ()
|
|
import Web.Controller.ApiInteractionEvents ()
|
|
import Web.Controller.EnvelopeEmissionContracts ()
|
|
import Web.Controller.InteractionReportingContracts ()
|
|
import Web.Controller.WidgetAdapterSpecs ()
|
|
import Web.Controller.CrossHubPropagations ()
|
|
import Web.Controller.WidgetOwnerships ()
|
|
import Web.Controller.HubRoutingRules ()
|
|
import Web.Controller.FederatedPolicyOverlays ()
|
|
import Web.Controller.StewardshipRoles ()
|
|
import Web.Controller.ArchiveRecords ()
|
|
import Web.Controller.FederatedGovernance ()
|
|
import Web.Controller.TypeRegistries ()
|
|
import Web.Controller.HubCapabilityManifests ()
|
|
-- Phase 9 — External API Surface (IHUB-WP-0010)
|
|
import Web.Controller.ApiConsumers ()
|
|
import Web.Controller.ApiKeys ()
|
|
import Web.Controller.WebhookSubscriptions ()
|
|
import Web.Controller.ApiDashboard ()
|
|
import Web.Controller.Api.V2.Widgets ()
|
|
import Web.Controller.Api.V2.InteractionEvents ()
|
|
import Web.Controller.Api.V2.Annotations ()
|
|
import Web.Controller.Api.V2.RequirementCandidates ()
|
|
import Web.Controller.Api.V2.DecisionRecords ()
|
|
import Web.Controller.Api.V2.DeploymentRecords ()
|
|
import Web.Controller.Api.V2.OutcomeSignals ()
|
|
import Web.Controller.Api.V2.Registries ()
|
|
import Web.Controller.Api.V2.OpenApi ()
|
|
import Web.Controller.Api.V2.Token ()
|
|
import Web.Controller.Api.V2.Sdk ()
|
|
-- Phase 10 — Hub Registry and Widget Marketplace (IHUB-WP-0011)
|
|
import Web.Controller.HubRegistry ()
|
|
import Web.Controller.WidgetPatterns ()
|
|
import Web.Controller.GovernanceTemplates ()
|
|
import Web.Controller.MarketplaceDashboard ()
|
|
import Web.Controller.Api.V2.HubRegistry ()
|
|
import Web.Controller.Api.V2.WidgetPatterns ()
|
|
-- Phase 11 — Advanced AI Federation (IHUB-WP-0012)
|
|
import Web.Controller.AgentRegistrations ()
|
|
import Web.Controller.ModelRoutingPolicies ()
|
|
import Web.Controller.AgentDelegations ()
|
|
import Web.Controller.CollectiveProposals ()
|
|
import Web.Controller.AiGovernancePolicies ()
|
|
-- Phase 12 — Platform Memory and Continuous Learning (IHUB-WP-0013)
|
|
import Web.Controller.OutcomeCorrelations ()
|
|
import Web.Controller.PatternPerformance ()
|
|
import Web.Controller.AdaptiveThresholds ()
|
|
import Web.Controller.InstitutionalKnowledge ()
|
|
import Web.Controller.LineageEnrichment ()
|
|
import Web.Controller.LearningDashboard ()
|
|
import Web.Controller.Api.V2.Learning ()
|
|
import Web.Controller.Sessions ()
|
|
|
|
instance FrontController WebApplication where
|
|
controllers =
|
|
[ parseRoute @SessionsController
|
|
, parseRoute @HubsController
|
|
, parseRoute @WidgetsController
|
|
, parseRoute @InteractionEventsController
|
|
, parseRoute @AnnotationsController
|
|
, parseRoute @AnnotationThreadsController
|
|
, parseRoute @RequirementCandidatesController
|
|
, parseRoute @RequirementsController
|
|
, parseRoute @DecisionRecordsController
|
|
, parseRoute @DeploymentRecordsController
|
|
, parseRoute @AgentProposalsController
|
|
, parseRoute @ApiInteractionEventsController
|
|
, parseRoute @EnvelopeEmissionContractsController
|
|
, parseRoute @InteractionReportingContractsController
|
|
, parseRoute @WidgetAdapterSpecsController
|
|
, parseRoute @CrossHubPropagationsController
|
|
, parseRoute @WidgetOwnershipsController
|
|
, parseRoute @HubRoutingRulesController
|
|
, parseRoute @FederatedPolicyOverlaysController
|
|
, parseRoute @StewardshipRolesController
|
|
, parseRoute @ArchiveRecordsController
|
|
, parseRoute @FederatedGovernanceController
|
|
, parseRoute @TypeRegistriesController
|
|
, parseRoute @HubCapabilityManifestsController
|
|
-- Phase 9 — External API Surface (IHUB-WP-0010)
|
|
, parseRoute @ApiConsumersController
|
|
, parseRoute @ApiKeysController
|
|
, parseRoute @WebhookSubscriptionsController
|
|
, parseRoute @ApiDashboardController
|
|
-- /api/v2/ REST endpoints (registered before /api/v1/ to avoid prefix clash)
|
|
, parseRoute @ApiV2WidgetsController
|
|
, parseRoute @ApiV2InteractionEventsController
|
|
, parseRoute @ApiV2AnnotationsController
|
|
, parseRoute @ApiV2RequirementCandidatesController
|
|
, parseRoute @ApiV2DecisionRecordsController
|
|
, parseRoute @ApiV2DeploymentRecordsController
|
|
, parseRoute @ApiV2OutcomeSignalsController
|
|
, parseRoute @ApiV2RegistriesController
|
|
, parseRoute @ApiV2OpenApiController
|
|
, parseRoute @ApiV2TokenController
|
|
, parseRoute @ApiV2SdkController
|
|
-- Phase 10 — Hub Registry and Widget Marketplace (IHUB-WP-0011)
|
|
, parseRoute @HubRegistryController
|
|
, parseRoute @WidgetPatternsController
|
|
, parseRoute @GovernanceTemplatesController
|
|
, parseRoute @MarketplaceDashboardController
|
|
, parseRoute @ApiV2HubRegistryController
|
|
, parseRoute @ApiV2WidgetPatternsController
|
|
-- Phase 11 — Advanced AI Federation (IHUB-WP-0012)
|
|
, parseRoute @AgentRegistrationsController
|
|
, parseRoute @ModelRoutingPoliciesController
|
|
, parseRoute @AgentDelegationsController
|
|
, parseRoute @CollectiveProposalsController
|
|
, parseRoute @AiGovernancePoliciesController
|
|
-- Phase 12 — Platform Memory and Continuous Learning (IHUB-WP-0013)
|
|
, parseRoute @OutcomeCorrelationsController
|
|
, parseRoute @PatternPerformanceController
|
|
, parseRoute @AdaptiveThresholdsController
|
|
, parseRoute @InstitutionalKnowledgeController
|
|
, parseRoute @LineageEnrichmentController
|
|
, parseRoute @LearningDashboardController
|
|
, parseRoute @ApiV2LearningController
|
|
]
|
|
|
|
instance InitControllerContext WebApplication where
|
|
initContext = do
|
|
setLayout defaultLayout
|
|
initAuthentication @User
|
|
|
|
annotationLauncherScript :: (?context :: ControllerContext) => Html
|
|
annotationLauncherScript =
|
|
let AnnotationLauncherEnabled enabled = getAppConfig @AnnotationLauncherEnabled
|
|
in if enabled
|
|
then [hsx|<script src="/js/ihf-annotation-launcher.js"></script>|]
|
|
else mempty
|
|
|
|
defaultLayout :: Layout
|
|
defaultLayout inner = [hsx|
|
|
<!DOCTYPE html>
|
|
<html lang="en">
|
|
<head>
|
|
<meta charset="UTF-8" />
|
|
<meta name="viewport" content="width=device-width, initial-scale=1" />
|
|
<title>inter-hub</title>
|
|
{autoRefreshMeta}
|
|
<link rel="stylesheet" href="/app.css" />
|
|
<script src="/vendor/morphdom.js"></script>
|
|
<script src="/vendor/ihp-auto-refresh.js"></script>
|
|
{annotationLauncherScript}
|
|
</head>
|
|
<body class="bg-gray-50 text-gray-900">
|
|
<nav class="bg-white border-b border-gray-200 px-6 py-3 flex items-center gap-6">
|
|
<a href={HubsAction} class="font-semibold text-indigo-600">inter-hub</a>
|
|
<a href={HubsAction} class="text-sm text-gray-600 hover:text-gray-900">Hubs</a>
|
|
<a href={WidgetsAction} class="text-sm text-gray-600 hover:text-gray-900">Widgets</a>
|
|
<a href={RequirementCandidatesAction} class="text-sm text-gray-600 hover:text-gray-900">Candidates</a>
|
|
<a href={RequirementsAction} class="text-sm text-gray-600 hover:text-gray-900">Requirements</a>
|
|
<a href={DecisionRecordsAction} class="text-sm text-gray-600 hover:text-gray-900">Decisions</a>
|
|
<a href={DeploymentRecordsAction} class="text-sm text-gray-600 hover:text-gray-900">Deployments</a>
|
|
<a href={AgentProposalsAction} class="text-sm text-gray-600 hover:text-gray-900">Agent</a>
|
|
<a href={WidgetAdapterSpecsAction} class="text-sm text-gray-600 hover:text-gray-900">Adapters</a>
|
|
<a href={CrossHubPropagationsAction} class="text-sm text-gray-600 hover:text-gray-900">Propagations</a>
|
|
<a href={OperationalReviewBoardAction} class="text-sm text-gray-600 hover:text-gray-900">Ops Review</a>
|
|
<a href={FederatedGovernanceDashboardAction} class="text-sm text-gray-600 hover:text-gray-900">Federation</a>
|
|
<a href={FederatedPolicyOverlaysAction} class="text-sm text-gray-600 hover:text-gray-900">Policies</a>
|
|
<a href={ArchiveRecordsAction} class="text-sm text-gray-600 hover:text-gray-900">Archive</a>
|
|
<a href={WidgetTypeRegistryAction} class="text-sm text-gray-600 hover:text-gray-900">Registries</a>
|
|
<a href={HubCapabilityManifestsAction} class="text-sm text-gray-600 hover:text-gray-900">Extensions</a>
|
|
<a href={ApiConsumersAction} class="text-sm text-gray-600 hover:text-gray-900">API</a>
|
|
<a href={ShowApiDashboardAction} class="text-sm text-gray-600 hover:text-gray-900">API Dashboard</a>
|
|
<a href={HubRegistryAction} class="text-sm text-gray-600 hover:text-gray-900">Hub Registry</a>
|
|
<a href={MarketplaceDashboardAction} class="text-sm text-gray-600 hover:text-gray-900">Marketplace</a>
|
|
<a href={AgentRegistrationsAction} class="text-sm text-gray-600 hover:text-gray-900">Agents</a>
|
|
<a href={ModelRoutingPoliciesAction} class="text-sm text-gray-600 hover:text-gray-900">Routing</a>
|
|
<a href={CollectiveProposalsAction} class="text-sm text-gray-600 hover:text-gray-900">Collective</a>
|
|
<a href={AiGovernancePoliciesAction} class="text-sm text-gray-600 hover:text-gray-900">AI Gov</a>
|
|
<a href={LearningDashboardAction} class="text-sm text-gray-600 hover:text-gray-900">Learning</a>
|
|
<div class="ml-auto">
|
|
<a href={DeleteSessionAction} class="text-sm text-gray-500 hover:text-gray-700">Sign out</a>
|
|
</div>
|
|
</nav>
|
|
<main class="max-w-5xl mx-auto px-6 py-8">
|
|
{inner}
|
|
</main>
|
|
</body>
|
|
</html>
|
|
|]
|