From 365e6b2e396ea79d23a0973b844aad333cf5203b Mon Sep 17 00:00:00 2001 From: Vojtech Knaisl Date: Thu, 26 Feb 2026 15:36:44 +0100 Subject: [PATCH 1/2] Fix PRJ_TML_PERM typo --- .../Development/User/Data/AlbertEinstein.hs | 2 +- .../Development/User/Data/NikolaTesla.hs | 2 +- .../Development/User/Data/SystemUser.hs | 2 +- .../Migration/Production/Migration.hs | 2 ++ .../Migration_0064_prjTmpPerm/Migration.hs | 23 +++++++++++++++++++ .../src/Wizard/Model/Config/ServerConfigDM.hs | 4 ++-- 6 files changed, 30 insertions(+), 5 deletions(-) create mode 100644 wizard-server/src/Wizard/Database/Migration/Production/Migration_0064_prjTmpPerm/Migration.hs diff --git a/wizard-server/src/Wizard/Database/Migration/Development/User/Data/AlbertEinstein.hs b/wizard-server/src/Wizard/Database/Migration/Development/User/Data/AlbertEinstein.hs index eaf8d1620..53d13f880 100644 --- a/wizard-server/src/Wizard/Database/Migration/Development/User/Data/AlbertEinstein.hs +++ b/wizard-server/src/Wizard/Database/Migration/Development/User/Data/AlbertEinstein.hs @@ -57,7 +57,7 @@ userAlbert = , "PRJ_FILE_PERM" , "PRJ_ACTION_PERM" , "PRJ_IMPORTER_PERM" - , "PJR_TML_PERM" + , "PRJ_TML_PERM" , "DOC_TML_READ_PERM" , "CFG_PERM" , "SUBM_PERM" diff --git a/wizard-server/src/Wizard/Database/Migration/Development/User/Data/NikolaTesla.hs b/wizard-server/src/Wizard/Database/Migration/Development/User/Data/NikolaTesla.hs index e96088100..e26827e6f 100644 --- a/wizard-server/src/Wizard/Database/Migration/Development/User/Data/NikolaTesla.hs +++ b/wizard-server/src/Wizard/Database/Migration/Development/User/Data/NikolaTesla.hs @@ -34,7 +34,7 @@ userNikola = , "PRJ_PERM" , "PRJ_ACTION_PERM" , "PRJ_IMPORTER_PERM" - , "PJR_TML_PERM" + , "PRJ_TML_PERM" , "DOC_TML_READ_PERM" , "SUBM_PERM" , "DOC_TML_WRITE_PERM" diff --git a/wizard-server/src/Wizard/Database/Migration/Development/User/Data/SystemUser.hs b/wizard-server/src/Wizard/Database/Migration/Development/User/Data/SystemUser.hs index 29e811b88..a2ea855ae 100644 --- a/wizard-server/src/Wizard/Database/Migration/Development/User/Data/SystemUser.hs +++ b/wizard-server/src/Wizard/Database/Migration/Development/User/Data/SystemUser.hs @@ -31,7 +31,7 @@ userSystem = , "PRJ_FILE_PERM" , "PRJ_ACTION_PERM" , "PRJ_IMPORTER_PERM" - , "PJR_TML_PERM" + , "PRJ_TML_PERM" , "DOC_TML_READ_PERM" , "CFG_PERM" , "SUBM_PERM" diff --git a/wizard-server/src/Wizard/Database/Migration/Production/Migration.hs b/wizard-server/src/Wizard/Database/Migration/Production/Migration.hs index 920156599..43bd1bbcc 100644 --- a/wizard-server/src/Wizard/Database/Migration/Production/Migration.hs +++ b/wizard-server/src/Wizard/Database/Migration/Production/Migration.hs @@ -65,6 +65,7 @@ import qualified Wizard.Database.Migration.Production.Migration_0060_knowledgeMo import qualified Wizard.Database.Migration.Production.Migration_0061_news.Migration as M_0061 import qualified Wizard.Database.Migration.Production.Migration_0062_metamodelFix.Migration as M_0062 import qualified Wizard.Database.Migration.Production.Migration_0063_plugins.Migration as M_0063 +import qualified Wizard.Database.Migration.Production.Migration_0064_prjTmpPerm.Migration as M_0064 migrationDefinitions :: [MigrationDefinition] migrationDefinitions = @@ -131,4 +132,5 @@ migrationDefinitions = , M_0061.definition , M_0062.definition , M_0063.definition + , M_0064.definition ] diff --git a/wizard-server/src/Wizard/Database/Migration/Production/Migration_0064_prjTmpPerm/Migration.hs b/wizard-server/src/Wizard/Database/Migration/Production/Migration_0064_prjTmpPerm/Migration.hs new file mode 100644 index 000000000..c17926e8b --- /dev/null +++ b/wizard-server/src/Wizard/Database/Migration/Production/Migration_0064_prjTmpPerm/Migration.hs @@ -0,0 +1,23 @@ +module Wizard.Database.Migration.Production.Migration_0064_prjTmpPerm.Migration ( + definition, +) where + +import Control.Monad.Logger +import Control.Monad.Reader (liftIO) +import Data.Pool (Pool, withResource) +import Database.PostgreSQL.Migration.Entity +import Database.PostgreSQL.Simple + +definition = (meta, migrate) + +meta = MigrationMeta {mmNumber = 64, mmName = "Fix Project Template Permissions", mmDescription = "Fix the project template permissions in the user_entity table."} + +migrate :: Pool Connection -> LoggingT IO (Maybe Error) +migrate dbPool = do + let sql = + "UPDATE user_entity \ + \SET permissions = array_replace(permissions, 'PJR_TML_PERM', 'PRJ_TML_PERM') \ + \WHERE 'PJR_TML_PERM' = ANY(permissions);" + let action conn = execute_ conn sql + liftIO $ withResource dbPool action + return Nothing diff --git a/wizard-server/src/Wizard/Model/Config/ServerConfigDM.hs b/wizard-server/src/Wizard/Model/Config/ServerConfigDM.hs index a1cc2dc61..996596c1c 100644 --- a/wizard-server/src/Wizard/Model/Config/ServerConfigDM.hs +++ b/wizard-server/src/Wizard/Model/Config/ServerConfigDM.hs @@ -60,7 +60,7 @@ defaultRoles = , "PRJ_ACTION_PERM" , "PRJ_FILE_PERM" , "PRJ_IMPORTER_PERM" - , "PJR_TML_PERM" + , "PRJ_TML_PERM" , "DOC_TML_READ_PERM" , "CFG_PERM" , "SUBM_PERM" @@ -77,7 +77,7 @@ defaultRoles = , "PRJ_PERM" , "PRJ_ACTION_PERM" , "PRJ_IMPORTER_PERM" - , "PJR_TML_PERM" + , "PRJ_TML_PERM" , "DOC_TML_READ_PERM" , "SUBM_PERM" , "DOC_TML_WRITE_PERM" From 8a8bb277a27c8f0fdca2b5d42daddaa317941407 Mon Sep 17 00:00:00 2001 From: Vojtech Knaisl Date: Thu, 26 Feb 2026 15:45:01 +0100 Subject: [PATCH 2/2] Release 4.27.1 --- registry-public/package.yaml | 2 +- registry-server/package.yaml | 2 +- registry-server/src/Registry/Api/Handler/Swagger/Api.hs | 2 +- shared-common/package.yaml | 2 +- wizard-public/package.yaml | 2 +- wizard-server/package.yaml | 2 +- wizard-server/src/Wizard/Api/Handler/Swagger/Api.hs | 2 +- 7 files changed, 7 insertions(+), 7 deletions(-) diff --git a/registry-public/package.yaml b/registry-public/package.yaml index 11ceb404b..a9e8fe97a 100644 --- a/registry-public/package.yaml +++ b/registry-public/package.yaml @@ -1,5 +1,5 @@ name: registry-public -version: '4.27.0' +version: '4.27.1' synopsis: Registry Public description: Registry Public category: Web diff --git a/registry-server/package.yaml b/registry-server/package.yaml index 0d108a05c..9a779c491 100644 --- a/registry-server/package.yaml +++ b/registry-server/package.yaml @@ -1,5 +1,5 @@ name: registry-server -version: '4.27.0' +version: '4.27.1' synopsis: Engine Registry description: Engine Registry category: Web diff --git a/registry-server/src/Registry/Api/Handler/Swagger/Api.hs b/registry-server/src/Registry/Api/Handler/Swagger/Api.hs index 05e50227d..49b3fa2ab 100644 --- a/registry-server/src/Registry/Api/Handler/Swagger/Api.hs +++ b/registry-server/src/Registry/Api/Handler/Swagger/Api.hs @@ -40,7 +40,7 @@ swagger = s._swaggerInfo { _infoTitle = "Registry API" , _infoDescription = Just "API specification for Registry" - , _infoVersion = "4.27.0" + , _infoVersion = "4.27.1" , _infoLicense = Just $ License diff --git a/shared-common/package.yaml b/shared-common/package.yaml index 1fc900a19..697b9f071 100644 --- a/shared-common/package.yaml +++ b/shared-common/package.yaml @@ -1,5 +1,5 @@ name: shared-common -version: '4.27.0' +version: '4.27.1' synopsis: Engine Shared description: Engine Shared category: Web diff --git a/wizard-public/package.yaml b/wizard-public/package.yaml index 1a641e3bb..ae5e75ea8 100644 --- a/wizard-public/package.yaml +++ b/wizard-public/package.yaml @@ -1,5 +1,5 @@ name: wizard-public -version: '4.27.0' +version: '4.27.1' synopsis: Wizard Public description: Wizard Public category: Web diff --git a/wizard-server/package.yaml b/wizard-server/package.yaml index e459decdb..225bf3231 100644 --- a/wizard-server/package.yaml +++ b/wizard-server/package.yaml @@ -1,5 +1,5 @@ name: wizard-server -version: '4.27.0' +version: '4.27.1' synopsis: Engine Wizard description: Engine Wizard category: Web diff --git a/wizard-server/src/Wizard/Api/Handler/Swagger/Api.hs b/wizard-server/src/Wizard/Api/Handler/Swagger/Api.hs index e29608114..e6b2b0a4c 100644 --- a/wizard-server/src/Wizard/Api/Handler/Swagger/Api.hs +++ b/wizard-server/src/Wizard/Api/Handler/Swagger/Api.hs @@ -151,7 +151,7 @@ swagger = s._swaggerInfo { _infoTitle = "Wizard API" , _infoDescription = Just "API specification for Wizard" - , _infoVersion = "4.27.0" + , _infoVersion = "4.27.1" , _infoLicense = Just $ License