inter-hub-haskell/Web/FrontController.hs

module Web.FrontController where

import IHP.RouterPrelude
import IHP.LoginSupport.Middleware
import IHP.ControllerPrelude
import IHP.ViewPrelude (Html, hsx, Layout, autoRefreshMeta)
import Generated.Types
import Web.Types
import Web.Routes ()

-- 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 ()
import Web.Controller.Api.V2.Hubs ()
import Web.Controller.Api.V2.HubCapabilityManifests ()
-- 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 ()
-- WP-0015 — Public intro / tutorial pages
import Web.Controller.StaticPages ()

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
        , parseRoute @ApiV2HubsController
        , parseRoute @ApiV2HubCapabilityManifestsController
        -- 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
        -- WP-0015 — Public intro / tutorial pages (must be last; catches "/" root)
        , parseRoute @StaticPagesController
        ]

instance InitControllerContext WebApplication where
    initContext = do
        setLayout defaultLayout
        initAuthentication @User

defaultLayout :: (?context :: ControllerContext, ?request :: Request) => Layout
defaultLayout inner =
    let authWidget :: Html
        authWidget = case currentUserOrNothing @User of
            Just _ -> [hsx|
                <form method="POST" action={DeleteSessionAction} style="display:inline">
                    <input type="hidden" name="_method" value="DELETE" />
                    <button type="submit" class="text-sm text-gray-500 hover:text-gray-700 bg-transparent border-0 p-0 cursor-pointer">Sign out</button>
                </form>
            |]
            Nothing -> [hsx|
                <a href={NewSessionAction} class="text-sm text-gray-500 hover:text-gray-900">Sign in</a>
            |]
    in [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>
            <script src="/js/ihf-annotation-launcher.js"></script>
        </head>
        <body class="bg-gray-50 text-gray-900" style="min-height:100vh;display:flex;flex-direction:column">
            <nav class="bg-white border-b border-gray-200 px-6 py-3 flex items-center">
                <a href={LandingAction} class="font-semibold text-indigo-600">inter-hub</a>
                <div class="ml-auto flex items-center" style="gap:2rem">
                    <div class="flex items-center" style="gap:1.75rem">
                        <a href={CapabilitiesAction} class="text-sm text-gray-500 hover:text-gray-900">About</a>
                        <a href={TutorialAction} class="text-sm text-gray-500 hover:text-gray-900">Tutorial</a>
                        <a href={ExtensionGuideAction} class="text-sm text-gray-500 hover:text-gray-900">Extend</a>
                    </div>
                    <span class="text-gray-200">|</span>
                    {authWidget}
                </div>
            </nav>
            <div class="flex" style="flex:1">
                <aside class="w-48 bg-white border-r border-gray-200 flex-shrink-0 overflow-y-auto">
                    <nav class="px-3 py-4 space-y-0.5">
                        <a href={HubsAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Hubs</a>
                        <a href={WidgetsAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Widgets</a>
                        <div class="pt-4 pb-1 px-3 text-xs font-semibold text-gray-400 uppercase tracking-wider">Governance</div>
                        <a href={RequirementCandidatesAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Candidates</a>
                        <a href={RequirementsAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Requirements</a>
                        <a href={DecisionRecordsAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Decisions</a>
                        <a href={DeploymentRecordsAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Deployments</a>
                        <div class="pt-4 pb-1 px-3 text-xs font-semibold text-gray-400 uppercase tracking-wider">Intelligence</div>
                        <a href={AgentProposalsAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Agent Proposals</a>
                        <a href={AgentRegistrationsAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Agents</a>
                        <a href={ModelRoutingPoliciesAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Routing</a>
                        <a href={CollectiveProposalsAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Collective</a>
                        <a href={AiGovernancePoliciesAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">AI Gov</a>
                        <a href={LearningDashboardAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Learning</a>
                        <div class="pt-4 pb-1 px-3 text-xs font-semibold text-gray-400 uppercase tracking-wider">Platform</div>
                        <a href={WidgetAdapterSpecsAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Adapters</a>
                        <a href={CrossHubPropagationsAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Propagations</a>
                        <a href={OperationalReviewBoardAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Ops Review</a>
                        <a href={FederatedGovernanceDashboardAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Federation</a>
                        <a href={FederatedPolicyOverlaysAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Policies</a>
                        <a href={ArchiveRecordsAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Archive</a>
                        <div class="pt-4 pb-1 px-3 text-xs font-semibold text-gray-400 uppercase tracking-wider">Registry</div>
                        <a href={WidgetTypeRegistryAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Registries</a>
                        <a href={HubCapabilityManifestsAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Extensions</a>
                        <div class="pt-4 pb-1 px-3 text-xs font-semibold text-gray-400 uppercase tracking-wider">API &amp; Market</div>
                        <a href={ApiConsumersAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">API Consumers</a>
                        <a href={ShowApiDashboardAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">API Dashboard</a>
                        <a href={HubRegistryAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Hub Registry</a>
                        <a href={MarketplaceDashboardAction} class="block px-3 py-1.5 text-sm text-gray-700 rounded hover:bg-gray-100">Marketplace</a>
                    </nav>
                </aside>
                <main class="px-8 py-8 overflow-y-auto" style="flex:1">
                    <div class="max-w-5xl">
                        {inner}
                    </div>
                </main>
            </div>
        </body>
    </html>
|]