inter-hub-haskell/Web/Routes.hs

module Web.Routes where

import IHP.RouterPrelude
import Generated.Types
import Web.Types

-- Hubs
instance AutoRoute HubsController

-- Widgets
instance AutoRoute WidgetsController

-- Interaction Events  (POST /widgets/:widgetId/events)
instance AutoRoute InteractionEventsController

-- Annotations (scoped to widget: /widgets/:widgetId/annotations/)
instance AutoRoute AnnotationsController

-- Annotation Threads (scoped to widget)
instance AutoRoute AnnotationThreadsController

-- Requirement Candidates
instance AutoRoute RequirementCandidatesController

-- Requirements (Phase 3)
instance AutoRoute RequirementsController

-- Decision Records (Phase 3)
instance AutoRoute DecisionRecordsController

-- Deployment Records (Phase 4)
instance AutoRoute DeploymentRecordsController

-- Agent Proposals (Phase 5)
instance AutoRoute AgentProposalsController

-- Phase 6 — Cross-Framework UI Adaptation

-- API endpoint: POST /api/v1/interaction-events
instance CanRoute ApiInteractionEventsController where
    parseRoute' = do
        _ <- string "/api"
        _ <- string "/v1"
        _ <- string "/interaction-events"
        endOfInput
        pure CreateApiInteractionEventAction

instance HasPath ApiInteractionEventsController where
    pathTo CreateApiInteractionEventAction = "/api/v1/interaction-events"

instance AutoRoute EnvelopeEmissionContractsController
instance AutoRoute InteractionReportingContractsController
instance AutoRoute WidgetAdapterSpecsController

-- Sessions
instance AutoRoute SessionsController