Release 4.33.3

registry-public/package.yaml

@@ -1,5 +1,5 @@
 name: registry-public
-version: '4.33.2'
+version: '4.33.3'
 synopsis: Registry Public
 description: Registry Public
 category: Web

registry-server/package.yaml

@@ -1,5 +1,5 @@
 name: registry-server
-version: '4.33.2'
+version: '4.33.3'
 synopsis: Engine Registry
 description: Engine Registry
 category: Web

registry-server/src/Registry/Api/Handler/Swagger/Api.hs

@@ -41,7 +41,7 @@ swagger =
             s._swaggerInfo
               { _infoTitle = "Registry API"
               , _infoDescription = Just "API specification for Registry"
-              , _infoVersion = "4.33.2"
+              , _infoVersion = "4.33.3"
               , _infoLicense =
                   Just $
                     License

shared-common/package.yaml

@@ -1,5 +1,5 @@
 name: shared-common
-version: '4.33.2'
+version: '4.33.3'
 synopsis: Engine Shared
 description: Engine Shared
 category: Web

wizard-public/package.yaml

@@ -1,5 +1,5 @@
 name: wizard-public
-version: '4.33.2'
+version: '4.33.3'
 synopsis: Wizard Public
 description: Wizard Public
 category: Web

wizard-public/src/WizardLib/Public/Model/PersistentCommand/Tenant/CreateTenantCommand.hs

@@ -14,6 +14,7 @@ data CreateTenantCommand = CreateTenantCommand
   , enabled :: Bool
   , customDomain :: Maybe String
   , adminRoleUuid :: U.UUID
+  , adminRolePermissions :: [String]
   , limits :: TenantLimitBundleChange
   }
   deriving (Show, Eq, Generic)

wizard-server/package.yaml

@@ -1,5 +1,5 @@
 name: wizard-server
-version: '4.33.2'
+version: '4.33.3'
 synopsis: Engine Wizard
 description: Engine Wizard
 category: Web

wizard-server/src/Wizard/Api/Handler/Swagger/Api.hs

@@ -158,7 +158,7 @@ swagger =
             s._swaggerInfo
               { _infoTitle = "Wizard API"
               , _infoDescription = Just "API specification for Wizard"
-              , _infoVersion = "4.33.2"
+              , _infoVersion = "4.33.3"
               , _infoLicense =
                   Just $
                     License

wizard-server/src/Wizard/Service/Tenant/TenantService.hs

@@ -114,7 +114,7 @@ createTenantByCommand command = do
   serverConfig <- asks serverConfig
   let tenant = fromCreateCommand command NotSeededTenantState serverConfig now now
   insertTenant tenant
-  adminRole <- createAdminRoleWithUuid command.adminRoleUuid tenant.uuid now
+  adminRole <- createAdminRoleWithUuid command.adminRoleUuid tenant.uuid command.adminRolePermissions now
   createConfig tenant.uuid adminRole.uuid now
   createLimitBundle tenant.uuid now
   createLocale tenant.uuid now
@@ -166,15 +166,15 @@ deleteTenant uuid = do
 createAdminRole :: U.UUID -> UTCTime -> AppContextM Role
 createAdminRole tenantUuid now = do
   uuid <- liftIO generateUuid
-  createAdminRoleWithUuid uuid tenantUuid now
+  createAdminRoleWithUuid uuid tenantUuid allRolePermissions now
 
-createAdminRoleWithUuid :: U.UUID -> U.UUID -> UTCTime -> AppContextM Role
-createAdminRoleWithUuid uuid tenantUuid now = do
+createAdminRoleWithUuid :: U.UUID -> U.UUID -> [String] -> UTCTime -> AppContextM Role
+createAdminRoleWithUuid uuid tenantUuid permissions now = do
   let role =
         Role
           { uuid = uuid
           , name = "Admin"
-          , permissions = allRolePermissions
+          , permissions = permissions
           , isAdmin = True
           , tenantUuid = tenantUuid
           , createdAt = now