From 55df10179fabff85e0ce6eefc7f7980a78dc2bbd Mon Sep 17 00:00:00 2001 From: Vojtech Knaisl Date: Wed, 16 Oct 2024 12:42:43 +0200 Subject: [PATCH 1/4] Fix diff owl --- .../Service/Owl/Diff/Accessor/Accessor.hs | 5 +++- .../src/Wizard/Service/Owl/Diff/Differ.hs | 23 +++++++++++-------- .../Service/Owl/Diff/EventFactory/Question.hs | 20 ++++++++-------- 3 files changed, 27 insertions(+), 21 deletions(-) diff --git a/wizard-server/src/Wizard/Service/Owl/Diff/Accessor/Accessor.hs b/wizard-server/src/Wizard/Service/Owl/Diff/Accessor/Accessor.hs index 3ec56fc5d..a3ca5b653 100644 --- a/wizard-server/src/Wizard/Service/Owl/Diff/Accessor/Accessor.hs +++ b/wizard-server/src/Wizard/Service/Owl/Diff/Accessor/Accessor.hs @@ -4,6 +4,7 @@ import qualified Data.List as L import qualified Data.Map.Strict as M import Data.Maybe (mapMaybe) +import Shared.Common.Model.Common.MapEntry import WizardLib.KnowledgeModel.Model.Event.EventField import WizardLib.KnowledgeModel.Model.KnowledgeModel.KnowledgeModelLenses @@ -30,7 +31,9 @@ getExistingEntities oldEntities newEntities = oldEntities isSameEntity :: HasAnnotations' entity => entity -> entity -> Bool -isSameEntity entity1 entity2 = getAnnotations entity1 == getAnnotations entity2 +isSameEntity entity1 entity2 = + let sortAnnotations = L.sortBy (\a1 a2 -> a1.key `compare` a2.key) + in (sortAnnotations . getAnnotations $ entity1) == (sortAnnotations . getAnnotations $ entity2) diffListField (oldKm, newKm) oldList newList getEntitiesMFn = let accessorFn km uuid = M.lookup uuid (getEntitiesMFn km) diff --git a/wizard-server/src/Wizard/Service/Owl/Diff/Differ.hs b/wizard-server/src/Wizard/Service/Owl/Diff/Differ.hs index d60121858..a0e64b82e 100644 --- a/wizard-server/src/Wizard/Service/Owl/Diff/Differ.hs +++ b/wizard-server/src/Wizard/Service/Owl/Diff/Differ.hs @@ -31,8 +31,8 @@ diffChapter (oldKm, newKm) (oldCh, newCh) = do let oldQuestions = getQuestionsForChapterUuid oldKm oldCh.uuid let newQuestions = getQuestionsForChapterUuid newKm newCh.uuid existingQuestionsDiff <- traverse (diffQuestion (oldKm, newKm)) (getExistingEntities oldQuestions newQuestions) - newQuestionEvents <- traverse (createAddEvent newCh.uuid) (getDiffEntities newQuestions oldQuestions) - deletedQuestionEvents <- traverse (createDeleteEvent newCh.uuid) (getDiffEntities oldQuestions newQuestions) + newQuestionEvents <- traverse (createAddEvent newCh.uuid) (getDiffEntities oldQuestions newQuestions) + deletedQuestionEvents <- traverse (createDeleteEvent newCh.uuid) (getDiffEntities newQuestions oldQuestions) return $ catMaybes [editChapterEvent] ++ concat existingQuestionsDiff ++ newQuestionEvents ++ deletedQuestionEvents diffQuestion :: MonadIO m => (KnowledgeModel, KnowledgeModel) -> (Question, Question) -> m [Event] @@ -41,25 +41,28 @@ diffQuestion (oldKm, newKm) (OptionsQuestion' oldQ, OptionsQuestion' newQ) = do let oldAnswers = getAnswersForQuestionUuid oldKm oldQ.uuid let newAnswers = getAnswersForQuestionUuid newKm newQ.uuid existingAnswersDiff <- traverse (diffAnswer (oldKm, newKm)) (getExistingEntities oldAnswers newAnswers) - newAnswerEvents <- traverse (createAddEvent newQ.uuid) (getDiffEntities newAnswers oldAnswers) - deletedAnswerEvents <- traverse (createDeleteEvent oldQ.uuid) (getDiffEntities oldAnswers newAnswers) + newAnswerEvents <- traverse (createAddEvent newQ.uuid) (getDiffEntities oldAnswers newAnswers) + deletedAnswerEvents <- traverse (createDeleteEvent oldQ.uuid) (getDiffEntities newAnswers oldAnswers) return $ catMaybes [editQuestionEvent] ++ concat existingAnswersDiff ++ newAnswerEvents ++ deletedAnswerEvents diffQuestion (oldKm, newKm) (MultiChoiceQuestion' oldQ, MultiChoiceQuestion' newQ) = do editQuestionEvent <- createEditEvent (oldKm, newKm) U.nil (MultiChoiceQuestion' oldQ) (MultiChoiceQuestion' newQ) let oldChoices = getChoicesForQuestionUuid oldKm oldQ.uuid let newChoices = getChoicesForQuestionUuid newKm newQ.uuid existingChoicesDiff <- traverse (diffChoice (oldKm, newKm)) (getExistingEntities oldChoices newChoices) - newChoiceEvents <- traverse (createAddEvent newQ.uuid) (getDiffEntities newChoices oldChoices) - deletedChoiceEvents <- traverse (createDeleteEvent oldQ.uuid) (getDiffEntities oldChoices newChoices) + newChoiceEvents <- traverse (createAddEvent newQ.uuid) (getDiffEntities oldChoices newChoices) + deletedChoiceEvents <- traverse (createDeleteEvent oldQ.uuid) (getDiffEntities newChoices oldChoices) return $ catMaybes [editQuestionEvent] ++ concat existingChoicesDiff ++ newChoiceEvents ++ deletedChoiceEvents diffQuestion (oldKm, newKm) (ListQuestion' oldQ, ListQuestion' newQ) = do editQuestionEvent <- createEditEvent (oldKm, newKm) U.nil (ListQuestion' oldQ) (ListQuestion' newQ) let oldQuestions = getItemTemplateQuestionsForQuestionUuid oldKm oldQ.uuid let newQuestions = getItemTemplateQuestionsForQuestionUuid newKm newQ.uuid existingQuestionsDiff <- traverse (diffQuestion (oldKm, newKm)) (getExistingEntities oldQuestions newQuestions) - newQuestionEvents <- traverse (createAddEvent newQ.uuid) (getDiffEntities newQuestions oldQuestions) - deletedQuestionEvents <- traverse (createDeleteEvent oldQ.uuid) (getDiffEntities oldQuestions newQuestions) + newQuestionEvents <- traverse (createAddEvent newQ.uuid) (getDiffEntities oldQuestions newQuestions) + deletedQuestionEvents <- traverse (createDeleteEvent oldQ.uuid) (getDiffEntities newQuestions oldQuestions) return $ catMaybes [editQuestionEvent] ++ concat existingQuestionsDiff ++ newQuestionEvents ++ deletedQuestionEvents +diffQuestion (oldKm, newKm) (ValueQuestion' oldQ, ValueQuestion' newQ) = do + editQuestionEvent <- createEditEvent (oldKm, newKm) U.nil (ValueQuestion' oldQ) (ValueQuestion' newQ) + return $ catMaybes [editQuestionEvent] diffQuestion (oldKm, newKm) _ = return [] diffAnswer :: MonadIO m => (KnowledgeModel, KnowledgeModel) -> (Answer, Answer) -> m [Event] @@ -68,8 +71,8 @@ diffAnswer (oldKm, newKm) (oldAnswer, newAnswer) = do let oldQuestions = getQuestionsForAnswerUuid oldKm oldAnswer.uuid let newQuestions = getQuestionsForAnswerUuid newKm newAnswer.uuid existingQuestionsDiff <- traverse (diffQuestion (oldKm, newKm)) (getExistingEntities oldQuestions newQuestions) - newQuestionEvents <- traverse (createAddEvent newAnswer.uuid) (getDiffEntities newQuestions oldQuestions) - deletedQuestionEvents <- traverse (createDeleteEvent oldAnswer.uuid) (getDiffEntities oldQuestions newQuestions) + newQuestionEvents <- traverse (createAddEvent newAnswer.uuid) (getDiffEntities oldQuestions newQuestions) + deletedQuestionEvents <- traverse (createDeleteEvent oldAnswer.uuid) (getDiffEntities newQuestions oldQuestions) return $ catMaybes [editAnswerEvent] ++ concat existingQuestionsDiff ++ newQuestionEvents ++ deletedQuestionEvents diffChoice :: MonadIO m => (KnowledgeModel, KnowledgeModel) -> (Choice, Choice) -> m [Event] diff --git a/wizard-server/src/Wizard/Service/Owl/Diff/EventFactory/Question.hs b/wizard-server/src/Wizard/Service/Owl/Diff/EventFactory/Question.hs index 412cf76d6..c8b59d07e 100644 --- a/wizard-server/src/Wizard/Service/Owl/Diff/EventFactory/Question.hs +++ b/wizard-server/src/Wizard/Service/Owl/Diff/EventFactory/Question.hs @@ -103,14 +103,14 @@ instance EventFactory Question where , props = entity.props , createdAt = now } - createEditEvent (oldKm, newKm) parentUuid (OptionsQuestion' oldEntity) (OptionsQuestion' newEntity) = do + createEditEvent (oldKm, newKm) parentUuid (OptionsQuestion' newEntity) (OptionsQuestion' oldEntity) = do eventUuid <- liftIO generateUuid now <- liftIO getCurrentTime let event = EditOptionsQuestionEvent { uuid = eventUuid , parentUuid = parentUuid - , entityUuid = newEntity.uuid + , entityUuid = oldEntity.uuid , title = diffField oldEntity.title newEntity.title , text = diffField oldEntity.text newEntity.text , requiredPhaseUuid = @@ -127,14 +127,14 @@ instance EventFactory Question where if isEmptyEvent event then return . Just . EditQuestionEvent' . EditOptionsQuestionEvent' $ event else return Nothing - createEditEvent (oldKm, newKm) parentUuid (MultiChoiceQuestion' oldEntity) (MultiChoiceQuestion' newEntity) = do + createEditEvent (oldKm, newKm) parentUuid (MultiChoiceQuestion' newEntity) (MultiChoiceQuestion' oldEntity) = do eventUuid <- liftIO generateUuid now <- liftIO getCurrentTime let event = EditMultiChoiceQuestionEvent { uuid = eventUuid , parentUuid = parentUuid - , entityUuid = newEntity.uuid + , entityUuid = oldEntity.uuid , title = diffField oldEntity.title newEntity.title , text = diffField oldEntity.text newEntity.text , requiredPhaseUuid = @@ -151,14 +151,14 @@ instance EventFactory Question where if isEmptyEvent event then return . Just . EditQuestionEvent' . EditMultiChoiceQuestionEvent' $ event else return Nothing - createEditEvent (oldKm, newKm) parentUuid (ListQuestion' oldEntity) (ListQuestion' newEntity) = do + createEditEvent (oldKm, newKm) parentUuid (ListQuestion' newEntity) (ListQuestion' oldEntity) = do eventUuid <- liftIO generateUuid now <- liftIO getCurrentTime let event = EditListQuestionEvent { uuid = eventUuid , parentUuid = parentUuid - , entityUuid = newEntity.uuid + , entityUuid = oldEntity.uuid , title = diffField oldEntity.title newEntity.title , text = diffField oldEntity.text newEntity.text , requiredPhaseUuid = @@ -179,14 +179,14 @@ instance EventFactory Question where if isEmptyEvent event then return . Just . EditQuestionEvent' . EditListQuestionEvent' $ event else return Nothing - createEditEvent (oldKm, newKm) parentUuid (ValueQuestion' oldEntity) (ValueQuestion' newEntity) = do + createEditEvent (oldKm, newKm) parentUuid (ValueQuestion' newEntity) (ValueQuestion' oldEntity) = do eventUuid <- liftIO generateUuid now <- liftIO getCurrentTime let event = EditValueQuestionEvent { uuid = eventUuid , parentUuid = parentUuid - , entityUuid = newEntity.uuid + , entityUuid = oldEntity.uuid , title = diffField oldEntity.title newEntity.title , text = diffField oldEntity.text newEntity.text , requiredPhaseUuid = @@ -202,14 +202,14 @@ instance EventFactory Question where if isEmptyEvent event then return . Just . EditQuestionEvent' . EditValueQuestionEvent' $ event else return Nothing - createEditEvent (oldKm, newKm) parentUuid (IntegrationQuestion' oldEntity) (IntegrationQuestion' newEntity) = do + createEditEvent (oldKm, newKm) parentUuid (IntegrationQuestion' newEntity) (IntegrationQuestion' oldEntity) = do eventUuid <- liftIO generateUuid now <- liftIO getCurrentTime let event = EditIntegrationQuestionEvent { uuid = eventUuid , parentUuid = parentUuid - , entityUuid = newEntity.uuid + , entityUuid = oldEntity.uuid , title = diffField oldEntity.title newEntity.title , text = diffField oldEntity.text newEntity.text , requiredPhaseUuid = From cf78417ca135009ecff1f0add3b8c7709fa24dc5 Mon Sep 17 00:00:00 2001 From: Vojtech Knaisl Date: Mon, 21 Oct 2024 15:09:46 +0200 Subject: [PATCH 2/4] Fix squashing for integrationUuid and listQuestionUuid --- .../Wizard/Service/KnowledgeModel/Squash/Event/Question.hs | 4 ++-- .../src/Wizard/Service/KnowledgeModel/Squash/Squasher.hs | 2 +- .../Specs/Service/KnowledgeModel/Squash/SquasherSpec.hs | 4 ++-- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/wizard-server/src/Wizard/Service/KnowledgeModel/Squash/Event/Question.hs b/wizard-server/src/Wizard/Service/KnowledgeModel/Squash/Event/Question.hs index bc280e228..32ca5bb1e 100644 --- a/wizard-server/src/Wizard/Service/KnowledgeModel/Squash/Event/Question.hs +++ b/wizard-server/src/Wizard/Service/KnowledgeModel/Squash/Event/Question.hs @@ -137,7 +137,7 @@ instance SimpleEventSquash EditQuestionEvent where , tagUuids = applyValueIfSameEntity mPreviousEvent oldEvent newEvent (.tagUuids) , expertUuids = applyValueIfSameEntity mPreviousEvent oldEvent newEvent (.expertUuids) , referenceUuids = applyValueIfSameEntity mPreviousEvent oldEvent newEvent (.referenceUuids) - , integrationUuid = applyValueIfSameEntity mPreviousEvent oldEvent newEvent (.integrationUuid) + , integrationUuid = applyValue oldEvent newEvent (.integrationUuid) , props = applyValue oldEvent newEvent (.props) , createdAt = oldEvent.createdAt } @@ -154,6 +154,6 @@ instance SimpleEventSquash EditQuestionEvent where , tagUuids = applyValueIfSameEntity mPreviousEvent oldEvent newEvent (.tagUuids) , expertUuids = applyValueIfSameEntity mPreviousEvent oldEvent newEvent (.expertUuids) , referenceUuids = applyValueIfSameEntity mPreviousEvent oldEvent newEvent (.referenceUuids) - , listQuestionUuid = applyValueIfSameEntity mPreviousEvent oldEvent newEvent (.listQuestionUuid) + , listQuestionUuid = applyValue oldEvent newEvent (.listQuestionUuid) , createdAt = oldEvent.createdAt } diff --git a/wizard-server/src/Wizard/Service/KnowledgeModel/Squash/Squasher.hs b/wizard-server/src/Wizard/Service/KnowledgeModel/Squash/Squasher.hs index 4359946d3..544285a16 100644 --- a/wizard-server/src/Wizard/Service/KnowledgeModel/Squash/Squasher.hs +++ b/wizard-server/src/Wizard/Service/KnowledgeModel/Squash/Squasher.hs @@ -73,7 +73,7 @@ squashReorderEvents events = let squashedEvent = simpleSquashEvent mPreviousEvent previousEvent newEvent eventsToDeleted' = previousEvent : eventsToDeleted events' = squashedEvent : events - in (eventsToDeleted', events', Just newEvent) + in (eventsToDeleted', events', Just squashedEvent) Nothing -> let eventsToDeleted' = eventsToDeleted events' = newEvent : events diff --git a/wizard-server/test/Wizard/Specs/Service/KnowledgeModel/Squash/SquasherSpec.hs b/wizard-server/test/Wizard/Specs/Service/KnowledgeModel/Squash/SquasherSpec.hs index ae59257d2..7743a0866 100644 --- a/wizard-server/test/Wizard/Specs/Service/KnowledgeModel/Squash/SquasherSpec.hs +++ b/wizard-server/test/Wizard/Specs/Service/KnowledgeModel/Squash/SquasherSpec.hs @@ -48,7 +48,7 @@ squasherSpec = , a_q2' , e_q2_title' , a_q3' - , EditQuestionEvent' . EditOptionsQuestionEvent' $ e_q1_title_2 {answerUuids = e_q1_answerUuids_title.answerUuids, createdAt = e_q1_answerUuids_title.createdAt} + , EditQuestionEvent' . EditOptionsQuestionEvent' $ e_q1_title_2 {answerUuids = e_q1_answerUuids_title.answerUuids, createdAt = e_q1_answerUuids.createdAt} , e_q1_type' , EditReferenceEvent' . EditURLReferenceEvent' $ e_ref1_url {createdAt = e_ref1_type.createdAt} , e_ch1_label_3_day2' @@ -113,7 +113,7 @@ squasherSpec = let expEvents = [ e_q1_text' , a_q3' - , EditQuestionEvent' . EditOptionsQuestionEvent' $ e_q1_title_2 {answerUuids = e_q1_answerUuids_title.answerUuids, createdAt = e_q1_answerUuids_title.createdAt} + , EditQuestionEvent' . EditOptionsQuestionEvent' $ e_q1_title_2 {answerUuids = e_q1_answerUuids_title.answerUuids, createdAt = e_q1_answerUuids.createdAt} , e_q1_type' ] -- WHEN: From d724c2a63aa4382e98fc2ae83be57a2e563b202f Mon Sep 17 00:00:00 2001 From: Vojtech Knaisl Date: Tue, 22 Oct 2024 09:34:35 +0200 Subject: [PATCH 3/4] Expose AI Assistant to bootstrap endpoint --- .../src/Wizard/Api/Resource/Config/ClientConfigDTO.hs | 6 ++++++ .../src/Wizard/Api/Resource/Config/ClientConfigJM.hs | 6 ++++++ .../src/Wizard/Api/Resource/Config/ClientConfigSM.hs | 3 +++ .../Wizard/Service/Config/Client/ClientConfigMapper.hs | 8 ++++++++ 4 files changed, 23 insertions(+) diff --git a/wizard-server/src/Wizard/Api/Resource/Config/ClientConfigDTO.hs b/wizard-server/src/Wizard/Api/Resource/Config/ClientConfigDTO.hs index 12cd270f4..4c17b2f0a 100644 --- a/wizard-server/src/Wizard/Api/Resource/Config/ClientConfigDTO.hs +++ b/wizard-server/src/Wizard/Api/Resource/Config/ClientConfigDTO.hs @@ -21,6 +21,7 @@ data ClientConfigDTO = ClientConfigDTO , locales :: [ClientConfigLocaleDTO] , owl :: TenantConfigOwl , admin :: ClientConfigAdminDTO + , aiAssistant :: ClientConfigAiAssistantDTO , signalBridge :: ClientConfigSignalBridgeDTO , modules :: [ClientConfigModuleDTO] } @@ -81,6 +82,11 @@ data ClientConfigAdminDTO = ClientConfigAdminDTO } deriving (Generic, Eq, Show) +data ClientConfigAiAssistantDTO = ClientConfigAiAssistantDTO + { enabled :: Bool + } + deriving (Generic, Eq, Show) + data ClientConfigSignalBridgeDTO = ClientConfigSignalBridgeDTO { webSocketUrl :: Maybe String } diff --git a/wizard-server/src/Wizard/Api/Resource/Config/ClientConfigJM.hs b/wizard-server/src/Wizard/Api/Resource/Config/ClientConfigJM.hs index 852aa128f..2206c0198 100644 --- a/wizard-server/src/Wizard/Api/Resource/Config/ClientConfigJM.hs +++ b/wizard-server/src/Wizard/Api/Resource/Config/ClientConfigJM.hs @@ -63,6 +63,12 @@ instance FromJSON ClientConfigAdminDTO where instance ToJSON ClientConfigAdminDTO where toJSON = genericToJSON jsonOptions +instance FromJSON ClientConfigAiAssistantDTO where + parseJSON = genericParseJSON jsonOptions + +instance ToJSON ClientConfigAiAssistantDTO where + toJSON = genericToJSON jsonOptions + instance FromJSON ClientConfigSignalBridgeDTO where parseJSON = genericParseJSON jsonOptions diff --git a/wizard-server/src/Wizard/Api/Resource/Config/ClientConfigSM.hs b/wizard-server/src/Wizard/Api/Resource/Config/ClientConfigSM.hs index 2db881646..9803825be 100644 --- a/wizard-server/src/Wizard/Api/Resource/Config/ClientConfigSM.hs +++ b/wizard-server/src/Wizard/Api/Resource/Config/ClientConfigSM.hs @@ -45,6 +45,9 @@ instance ToSchema ClientConfigLocaleDTO where instance ToSchema ClientConfigAdminDTO where declareNamedSchema = toSwagger (toClientConfigAdminDTO S.defaultAdmin defaultTenant) +instance ToSchema ClientConfigAiAssistantDTO where + declareNamedSchema = toSwagger (toClientConfigAiAssistantDTO defaultTenant) + instance ToSchema ClientConfigSignalBridgeDTO where declareNamedSchema = toSwagger (toClientConfigSignalBridgeDTO defaultTenant) diff --git a/wizard-server/src/Wizard/Service/Config/Client/ClientConfigMapper.hs b/wizard-server/src/Wizard/Service/Config/Client/ClientConfigMapper.hs index b983e2925..fdc69018a 100644 --- a/wizard-server/src/Wizard/Service/Config/Client/ClientConfigMapper.hs +++ b/wizard-server/src/Wizard/Service/Config/Client/ClientConfigMapper.hs @@ -1,6 +1,7 @@ module Wizard.Service.Config.Client.ClientConfigMapper where import Data.Maybe +import qualified Data.UUID as U import Shared.Common.Model.Config.ServerConfig import Shared.Common.Model.Config.SimpleFeature @@ -27,6 +28,7 @@ toClientConfigDTO serverConfig tenantConfig mUserProfile tenant locales = , locales = fmap toClientConfigLocaleDTO locales , owl = tenantConfig.owl , admin = toClientConfigAdminDTO serverConfig.admin tenant + , aiAssistant = toClientConfigAiAssistantDTO tenant , signalBridge = toClientConfigSignalBridgeDTO tenant , modules = if serverConfig.admin.enabled @@ -111,6 +113,12 @@ toClientConfigAdminDTO :: ServerConfigAdmin -> Tenant -> ClientConfigAdminDTO toClientConfigAdminDTO serverConfig tenant = ClientConfigAdminDTO {enabled = serverConfig.enabled, clientUrl = tenant.adminClientUrl} +toClientConfigAiAssistantDTO :: Tenant -> ClientConfigAiAssistantDTO +toClientConfigAiAssistantDTO tenant = + ClientConfigAiAssistantDTO + { enabled = not (U.toString tenant.uuid == "731ccc18-b833-4927-9458-2dea090e26cc" || U.toString tenant.uuid == "61a65ac9-e055-49eb-89ae-f4a4b6410208") + } + toClientConfigSignalBridgeDTO :: Tenant -> ClientConfigSignalBridgeDTO toClientConfigSignalBridgeDTO tenant = ClientConfigSignalBridgeDTO {webSocketUrl = tenant.signalBridgeUrl} From 020c2803c1d03461b605bd8dd6bb4b7388b6138c Mon Sep 17 00:00:00 2001 From: Vojtech Knaisl Date: Tue, 22 Oct 2024 09:37:57 +0200 Subject: [PATCH 4/4] Release 4.11.2 --- 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-common/package.yaml | 2 +- wizard-public/package.yaml | 2 +- wizard-server/package.yaml | 2 +- wizard-server/src/Wizard/Api/Handler/Swagger/Api.hs | 2 +- 8 files changed, 8 insertions(+), 8 deletions(-) diff --git a/registry-public/package.yaml b/registry-public/package.yaml index ab39a4873..fe10d5106 100644 --- a/registry-public/package.yaml +++ b/registry-public/package.yaml @@ -1,5 +1,5 @@ name: registry-public -version: '4.11.1' +version: '4.11.2' synopsis: Registry Public description: Registry Public category: Web diff --git a/registry-server/package.yaml b/registry-server/package.yaml index 506e7e824..af73427ba 100644 --- a/registry-server/package.yaml +++ b/registry-server/package.yaml @@ -1,5 +1,5 @@ name: registry-server -version: '4.11.1' +version: '4.11.2' 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 db838189a..ed7ec58ec 100644 --- a/registry-server/src/Registry/Api/Handler/Swagger/Api.hs +++ b/registry-server/src/Registry/Api/Handler/Swagger/Api.hs @@ -38,7 +38,7 @@ swagger = s._swaggerInfo { _infoTitle = "Registry API" , _infoDescription = Just "API specification for Registry" - , _infoVersion = "4.11.1" + , _infoVersion = "4.11.2" , _infoLicense = Just $ License diff --git a/shared-common/package.yaml b/shared-common/package.yaml index b75ae4741..47f028e87 100644 --- a/shared-common/package.yaml +++ b/shared-common/package.yaml @@ -1,5 +1,5 @@ name: shared-common -version: '4.11.1' +version: '4.11.2' synopsis: Engine Shared description: Engine Shared category: Web diff --git a/wizard-common/package.yaml b/wizard-common/package.yaml index 522086b31..eb076fd44 100644 --- a/wizard-common/package.yaml +++ b/wizard-common/package.yaml @@ -1,5 +1,5 @@ name: wizard-common -version: '4.11.1' +version: '4.11.2' synopsis: Wizard Engine description: Wizard Engine category: Web diff --git a/wizard-public/package.yaml b/wizard-public/package.yaml index 1ce33e00f..13db737b3 100644 --- a/wizard-public/package.yaml +++ b/wizard-public/package.yaml @@ -1,5 +1,5 @@ name: wizard-public -version: '4.11.1' +version: '4.11.2' synopsis: Wizard Public description: Wizard Public category: Web diff --git a/wizard-server/package.yaml b/wizard-server/package.yaml index 7c277ecfb..50aa290ff 100644 --- a/wizard-server/package.yaml +++ b/wizard-server/package.yaml @@ -1,5 +1,5 @@ name: wizard-server -version: '4.11.1' +version: '4.11.2' 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 6cd2d2b22..721502c80 100644 --- a/wizard-server/src/Wizard/Api/Handler/Swagger/Api.hs +++ b/wizard-server/src/Wizard/Api/Handler/Swagger/Api.hs @@ -138,7 +138,7 @@ swagger = s._swaggerInfo { _infoTitle = "Wizard API" , _infoDescription = Just "API specification for Wizard" - , _infoVersion = "4.11.1" + , _infoVersion = "4.11.2" , _infoLicense = Just $ License