coulomb/inter-hub
2
0
Fork 0
generated from coulomb/repo-seed
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat: add v2 manifest bootstrap endpoints
Some checks failed
Build and Deploy / build-push-deploy (push) Has been cancelled
Details

Browse Source
This commit is contained in:
Bernd Worsch
2026-05-16 09:06:15 +02:00
parent 4ebc04e1f4
commit 50735bb7cf
9 changed files with 408 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Web/Routes.hs
View File

@@ -178,12 +178,14 @@ instance CanRoute ApiV2RegistriesController where
[ do _ <- string "widget-types"; endOfInput; pure ApiV2ListWidgetTypesAction
, do _ <- string "event-types"; endOfInput; pure ApiV2ListEventTypesAction
, do _ <- string "annotation-categories"; endOfInput; pure ApiV2ListAnnotationCategoriesAction
, do _ <- string "policy-scopes"; endOfInput; pure ApiV2ListPolicyScopesAction
]
instance HasPath ApiV2RegistriesController where
pathTo ApiV2ListWidgetTypesAction = "/api/v2/widget-types"
pathTo ApiV2ListEventTypesAction = "/api/v2/event-types"
pathTo ApiV2ListAnnotationCategoriesAction = "/api/v2/annotation-categories"
pathTo ApiV2ListPolicyScopesAction = "/api/v2/policy-scopes"
instance CanRoute ApiV2OpenApiController where
parseRoute' = do
@@ -257,6 +259,27 @@ instance HasPath ApiV2HubsController where
pathTo ApiV2ShowHubAction { hubId } = "/api/v2/hubs/" <> tshow hubId
pathTo ApiV2CreateHubAction = "/api/v2/hubs"
instance CanRoute ApiV2HubCapabilityManifestsController where
parseRoute' = do
_ <- string "/api/v2/hub-capability-manifests"
choice
[ do endOfInput; pure ApiV2IndexHubCapabilityManifestsAction
, do _ <- string "/"; mId <- parseUUID
choice
[ do _ <- string "/activate"; endOfInput
pure ApiV2ActivateHubCapabilityManifestAction { hubCapabilityManifestId = Id mId }
, do endOfInput
pure ApiV2ShowHubCapabilityManifestAction { hubCapabilityManifestId = Id mId }
]
]
instance HasPath ApiV2HubCapabilityManifestsController where
pathTo ApiV2IndexHubCapabilityManifestsAction = "/api/v2/hub-capability-manifests"
pathTo ApiV2ShowHubCapabilityManifestAction { hubCapabilityManifestId } = "/api/v2/hub-capability-manifests/" <> tshow hubCapabilityManifestId
pathTo ApiV2CreateHubCapabilityManifestAction = "/api/v2/hub-capability-manifests"
pathTo ApiV2UpdateHubCapabilityManifestAction { hubCapabilityManifestId } = "/api/v2/hub-capability-manifests/" <> tshow hubCapabilityManifestId
pathTo ApiV2ActivateHubCapabilityManifestAction { hubCapabilityManifestId } = "/api/v2/hub-capability-manifests/" <> tshow hubCapabilityManifestId <> "/activate"
instance CanRoute ApiV2WidgetPatternsController where
parseRoute' = do
_ <- string "/api/v2/widget-patterns"