Fix renaming questionnaire version

Author: vknaisl

wizard-server/src/Wizard/Service/Questionnaire/Version/QuestionnaireVersionService.hs

@@ -46,7 +46,7 @@ createVersion qtnUuid reqDto =
   runInTransaction $ do
     qtn <- findQuestionnaireByUuid qtnUuid
     checkOwnerPermissionToQtn qtn.visibility qtn.permissions
-    validateQuestionnaireVersion reqDto qtn
+    validateQuestionnaireVersionCreate reqDto qtn
     vUuid <- liftIO generateUuid
     currentUser <- getCurrentUser
     now <- liftIO getCurrentTime
@@ -60,7 +60,7 @@ modifyVersion qtnUuid vUuid reqDto =
   runInTransaction $ do
     qtn <- findQuestionnaireByUuid qtnUuid
     checkOwnerPermissionToQtn qtn.visibility qtn.permissions
-    validateQuestionnaireVersion reqDto qtn
+    validateQuestionnaireVersionUpdate reqDto qtn
     now <- liftIO getCurrentTime
     version <-
       case L.find (\v -> v.uuid == vUuid) qtn.versions of

wizard-server/src/Wizard/Service/Questionnaire/Version/QuestionnaireVersionValidation.hs

@@ -13,11 +13,14 @@ import Wizard.Model.Questionnaire.Questionnaire
 import Wizard.Model.Questionnaire.QuestionnaireEventLenses ()
 import Wizard.Model.Questionnaire.QuestionnaireVersion
 
-validateQuestionnaireVersion :: QuestionnaireVersionChangeDTO -> Questionnaire -> AppContextM ()
-validateQuestionnaireVersion reqDto qtn = do
+validateQuestionnaireVersionCreate :: QuestionnaireVersionChangeDTO -> Questionnaire -> AppContextM ()
+validateQuestionnaireVersionCreate reqDto qtn = do
   validateQuestionnaireVersionEventExistence reqDto qtn
   validateQuestionnaireVersionUniqueness reqDto qtn
 
+validateQuestionnaireVersionUpdate :: QuestionnaireVersionChangeDTO -> Questionnaire -> AppContextM ()
+validateQuestionnaireVersionUpdate = validateQuestionnaireVersionEventExistence
+
 validateQuestionnaireVersionUniqueness :: QuestionnaireVersionChangeDTO -> Questionnaire -> AppContextM ()
 validateQuestionnaireVersionUniqueness reqDto qtn =
   case L.find (\v -> v.eventUuid == reqDto.eventUuid) qtn.versions of