Unset password for system user

Author: vknaisl

wizard-server/src/Wizard/Database/Migration/Production/Migration_0053_qtnEventsRefactoring/Migration.hs

@@ -21,6 +21,7 @@ migrate dbPool = do
   testEventCount dbPool
   testValueCount dbPool
   removeEventsColumnFromQuestionnaire dbPool
+  changePasswordHashForSystemUser dbPool
   createExternalLinkTable dbPool
 
 regenerateQuestionnaireEventUuid dbPool = do
@@ -322,6 +323,12 @@ removeEventsColumnFromQuestionnaire dbPool = do
   liftIO $ withResource dbPool action
   return Nothing
 
+changePasswordHashForSystemUser dbPool = do
+  let sql = "UPDATE user_entity SET password_hash = 'no-hash' WHERE uuid = '00000000-0000-0000-0000-000000000000' AND tenant_uuid = '00000000-0000-0000-0000-000000000000';"
+  let action conn = execute_ conn sql
+  liftIO $ withResource dbPool action
+  return Nothing
+
 createExternalLinkTable dbPool = do
   let sql =
         "CREATE TABLE external_link_usage \