Add KM metamodel migration 19 to v20

Author: MarekSuchanek

shared-common/src/Shared/KnowledgeModel/Constant/KnowledgeModel.hs

@@ -1,4 +1,4 @@
 module Shared.KnowledgeModel.Constant.KnowledgeModel where
 
 knowledgeModelMetamodelVersion :: Int
-knowledgeModelMetamodelVersion = 19
+knowledgeModelMetamodelVersion = 20

wizard-server/src/Wizard/Service/KnowledgeModel/Metamodel/Migrator/EventMigrator.hs

@@ -24,6 +24,7 @@ import qualified Wizard.Service.KnowledgeModel.Metamodel.Migrator.Migrations.Mig
 import qualified Wizard.Service.KnowledgeModel.Metamodel.Migrator.Migrations.Migration0016 as M16
 import qualified Wizard.Service.KnowledgeModel.Metamodel.Migrator.Migrations.Migration0017 as M17
 import qualified Wizard.Service.KnowledgeModel.Metamodel.Migrator.Migrations.Migration0018 as M18
+import qualified Wizard.Service.KnowledgeModel.Metamodel.Migrator.Migrations.Migration0019 as M19
 import Wizard.Service.KnowledgeModel.Metamodel.Migrator.Migrations.MigrationContext (MigrationContext)
 
 type Version = Int
@@ -50,6 +51,7 @@ migrations =
   , (16, M16.migrateEventValue)
   , (17, M17.migrateEventValue)
   , (18, M18.migrateEventValue)
+  , (19, M19.migrateEventValue)
   ]
 
 migrate :: MigrationContext -> Version -> Version -> Value -> Either String [Value]

wizard-server/src/Wizard/Service/KnowledgeModel/Metamodel/Migrator/Migrations/Migration0019.hs

@@ -0,0 +1,32 @@
+module Wizard.Service.KnowledgeModel.Metamodel.Migrator.Migrations.Migration0019 (
+  migrateEventValue,
+) where
+
+import Data.Aeson
+import qualified Data.Aeson.KeyMap as KM
+import qualified Data.Text as T
+
+import Wizard.Service.KnowledgeModel.Metamodel.Migrator.Migrations.MigrationContext
+import Wizard.Service.KnowledgeModel.Metamodel.Migrator.Migrations.Utils
+
+-- Migration #0019 (KM v19 -> v20)
+-- - remove:
+--   - AddApiLegacyIntegrationEvent, EditApiLegacyIntegrationEvent
+--   - AddWidgetIntegrationEvent, EditWidgetIntegrationEvent
+migrateEventValue :: MigrationContext -> Value -> Either String [Value]
+migrateEventValue _ = Right . migrate
+
+migrateIntegrationEvent :: Object -> [Object]
+migrateIntegrationEvent obj =
+  case KM.lookup "integrationType" obj of
+    (Just (String "ApiLegacyIntegration")) -> []
+    (Just (String "WidgetIntegration")) -> []
+    _ -> [obj]
+
+runMigration :: T.Text -> Object -> [Object]
+runMigration "AddIntegrationEvent" obj = migrateIntegrationEvent obj
+runMigration "EditIntegrationEvent" obj = migrateIntegrationEvent obj
+runMigration _ obj = [obj]
+
+migrate :: Value -> [Value]
+migrate = migrateByEventTypeList runMigration

wizard-server/src/Wizard/Service/KnowledgeModel/Metamodel/Migrator/Migrations/Utils.hs

@@ -40,6 +40,13 @@ migrateByEventType migrationFn v@(Object obj) =
     _ -> v
 migrateByEventType _ v = v
 
+migrateByEventTypeList :: (T.Text -> Object -> [Object]) -> Value -> [Value]
+migrateByEventTypeList migrationFn v@(Object obj) =
+  case KM.lookup "eventType" obj of
+    (Just (String eventType)) -> Object <$> (migrationFn eventType obj)
+    _ -> [v]
+migrateByEventTypeList _ v = [v]
+
 unchangedValue :: Value
 unchangedValue = Object (KM.singleton "changed" (Bool False))