Refactor questionnaire DB model

ds-wizard · Feb 12, 2025 · 406de32 · 406de32
1 parent 9228fc2
commit 406de32
Show file tree

Hide file tree

Showing 77 changed files with 1,766 additions and 728 deletions.
diff --git a/shared-common/src/Shared/Common/Database/DAO/Common.hs b/shared-common/src/Shared/Common/Database/DAO/Common.hs
@@ -445,6 +445,11 @@ generateQuestionMarks fields =
 generateQuestionMarks' :: ToRow entity => entity -> String
 generateQuestionMarks' = generateQuestionMarks . fmap show . toRow
 
+generateQuestionMarksForEntities :: ToRow entity => [entity] -> String
+generateQuestionMarksForEntities entities =
+  let oneRow entity = "(" ++ generateQuestionMarks' entity ++ ")"
+   in L.intercalate "," . fmap oneRow $ entities
+
 regex :: String -> String
 regex query = ".*" ++ query ++ ".*"
 

diff --git a/wizard-server/src/Wizard/Api/Handler/Questionnaire/Detail_Questionnaire_GET.hs b/wizard-server/src/Wizard/Api/Handler/Questionnaire/Detail_Questionnaire_GET.hs
@@ -26,4 +26,4 @@ detail_questionnaire_GET
   -> BaseContextM (Headers '[Header "x-trace-uuid" String] QuestionnaireDetailQuestionnaireDTO)
 detail_questionnaire_GET mTokenHeader mServerUrl qtnUuid =
   getMaybeAuthServiceExecutor mTokenHeader mServerUrl $ \runInAuthService ->
-    runInAuthService NoTransaction $ addTraceUuidHeader =<< getQuestionnaireDetailQuestionnaireById qtnUuid
+    runInAuthService NoTransaction $ addTraceUuidHeader =<< getQuestionnaireDetailQuestionnaireByUuid qtnUuid
diff --git a/wizard-server/src/Wizard/Api/Resource/Questionnaire/Event/QuestionnaireEventChangeSM.hs b/wizard-server/src/Wizard/Api/Resource/Questionnaire/Event/QuestionnaireEventChangeSM.hs
@@ -8,6 +8,8 @@ import Wizard.Api.Resource.Questionnaire.Event.QuestionnaireEventChangeJM ()
 import Wizard.Api.Resource.Questionnaire.Event.QuestionnaireEventJM ()
 import Wizard.Api.Resource.Questionnaire.QuestionnaireReplySM ()
 import Wizard.Database.Migration.Development.Questionnaire.Data.QuestionnaireEvents
+import Wizard.Database.Migration.Development.Questionnaire.Data.Questionnaires
+import Wizard.Model.Questionnaire.Questionnaire
 import Wizard.Service.Questionnaire.Event.QuestionnaireEventMapper
 import WizardLib.Public.Api.Resource.User.UserSuggestionSM ()
 
@@ -16,19 +18,19 @@ instance ToSchema QuestionnaireEventChangeDTO where
 
 instance ToSchema SetReplyEventChangeDTO where
   declareNamedSchema =
-    toSwagger (toSetReplyEventChangeDTO sre_rQ1)
+    toSwagger (toSetReplyEventChangeDTO (sre_rQ1 questionnaire1.uuid))
 
 instance ToSchema ClearReplyEventChangeDTO where
   declareNamedSchema =
-    toSwagger (toClearReplyEventChangeDTO cre_rQ1)
+    toSwagger (toClearReplyEventChangeDTO (cre_rQ1 questionnaire1.uuid))
 
 instance ToSchema SetPhaseEventChangeDTO where
   declareNamedSchema =
-    toSwagger (toSetPhaseEventChangeDTO sphse_1)
+    toSwagger (toSetPhaseEventChangeDTO (sphse_1 questionnaire1.uuid))
 
 instance ToSchema SetLabelsEventChangeDTO where
   declareNamedSchema =
-    toSwagger (toSetLabelsEventChangeDTO slble_rQ2)
+    toSwagger (toSetLabelsEventChangeDTO (slble_rQ2 questionnaire1.uuid))
 
 instance ToSchema ResolveCommentThreadEventChangeDTO where
   declareNamedSchema = toSwagger rtche_rQ1_t1

diff --git a/wizard-server/src/Wizard/Api/Resource/Questionnaire/Event/QuestionnaireEventSM.hs b/wizard-server/src/Wizard/Api/Resource/Questionnaire/Event/QuestionnaireEventSM.hs
@@ -7,24 +7,26 @@ import Wizard.Api.Resource.Questionnaire.Event.QuestionnaireEventDTO
 import Wizard.Api.Resource.Questionnaire.Event.QuestionnaireEventJM ()
 import Wizard.Api.Resource.Questionnaire.QuestionnaireReplySM ()
 import Wizard.Database.Migration.Development.Questionnaire.Data.QuestionnaireEvents
+import Wizard.Database.Migration.Development.Questionnaire.Data.Questionnaires
 import Wizard.Database.Migration.Development.User.Data.Users
+import Wizard.Model.Questionnaire.Questionnaire
 import Wizard.Service.Questionnaire.Event.QuestionnaireEventMapper
 import WizardLib.Public.Api.Resource.User.UserSuggestionSM ()
 
 instance ToSchema QuestionnaireEventDTO where
   declareNamedSchema = genericDeclareNamedSchemaUnrestricted defaultSchemaOptions
 
 instance ToSchema SetReplyEventDTO where
-  declareNamedSchema = toSwagger (toSetReplyEventDTO sre_rQ1 (Just userAlbert))
+  declareNamedSchema = toSwagger (toSetReplyEventDTO (sre_rQ1 questionnaire1.uuid) (Just userAlbert))
 
 instance ToSchema ClearReplyEventDTO where
-  declareNamedSchema = toSwagger (toClearReplyEventDTO cre_rQ1 (Just userAlbert))
+  declareNamedSchema = toSwagger (toClearReplyEventDTO (cre_rQ1 questionnaire1.uuid) (Just userAlbert))
 
 instance ToSchema SetPhaseEventDTO where
-  declareNamedSchema = toSwagger (toSetPhaseEventDTO sphse_1 (Just userAlbert))
+  declareNamedSchema = toSwagger (toSetPhaseEventDTO (sphse_1 questionnaire1.uuid) (Just userAlbert))
 
 instance ToSchema SetLabelsEventDTO where
-  declareNamedSchema = toSwagger (toSetLabelsEventDTO slble_rQ2 (Just userAlbert))
+  declareNamedSchema = toSwagger (toSetLabelsEventDTO (slble_rQ2 questionnaire1.uuid) (Just userAlbert))
 
 instance ToSchema ResolveCommentThreadEventDTO where
   declareNamedSchema = toSwagger rte_rQ1_t1

diff --git a/wizard-server/src/Wizard/Api/Resource/Questionnaire/Version/QuestionnaireVersionChangeSM.hs b/wizard-server/src/Wizard/Api/Resource/Questionnaire/Version/QuestionnaireVersionChangeSM.hs
@@ -6,6 +6,7 @@ import Shared.Common.Util.Swagger
 import Wizard.Api.Resource.Questionnaire.Version.QuestionnaireVersionChangeDTO
 import Wizard.Api.Resource.Questionnaire.Version.QuestionnaireVersionChangeJM ()
 import Wizard.Database.Migration.Development.Questionnaire.Data.QuestionnaireVersions
+import Wizard.Database.Migration.Development.Questionnaire.Data.Questionnaires
 
 instance ToSchema QuestionnaireVersionChangeDTO where
-  declareNamedSchema = toSwagger questionnaireVersion2ChangeDto
+  declareNamedSchema = toSwagger (questionnaireVersion2ChangeDto questionnaire1Uuid)
diff --git a/wizard-server/src/Wizard/Api/Resource/Questionnaire/Version/QuestionnaireVersionRevertSM.hs b/wizard-server/src/Wizard/Api/Resource/Questionnaire/Version/QuestionnaireVersionRevertSM.hs
@@ -6,6 +6,7 @@ import Shared.Common.Util.Swagger
 import Wizard.Api.Resource.Questionnaire.Version.QuestionnaireVersionRevertDTO
 import Wizard.Api.Resource.Questionnaire.Version.QuestionnaireVersionRevertJM ()
 import Wizard.Database.Migration.Development.Questionnaire.Data.QuestionnaireVersions
+import Wizard.Database.Migration.Development.Questionnaire.Data.Questionnaires
 
 instance ToSchema QuestionnaireVersionRevertDTO where
-  declareNamedSchema = toSwagger questionnaireVersion1RevertDto
+  declareNamedSchema = toSwagger (questionnaireVersion1RevertDto questionnaire1Uuid)
diff --git a/wizard-server/src/Wizard/Api/Resource/Questionnaire/Version/QuestionnaireVersionSM.hs b/wizard-server/src/Wizard/Api/Resource/Questionnaire/Version/QuestionnaireVersionSM.hs
@@ -6,7 +6,8 @@ import Shared.Common.Util.Swagger
 import Wizard.Api.Resource.Questionnaire.Version.QuestionnaireVersionDTO
 import Wizard.Api.Resource.Questionnaire.Version.QuestionnaireVersionJM ()
 import Wizard.Database.Migration.Development.Questionnaire.Data.QuestionnaireVersions
+import Wizard.Database.Migration.Development.Questionnaire.Data.Questionnaires
 import WizardLib.Public.Api.Resource.User.UserSuggestionSM ()
 
 instance ToSchema QuestionnaireVersionDTO where
-  declareNamedSchema = toSwagger questionnaireVersion1Dto
+  declareNamedSchema = toSwagger (questionnaireVersion1Dto questionnaire1Uuid)