Repair SetPhaseEvent events with null array value breaking projects

Author: vknaisl

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

@@ -70,6 +70,7 @@ import qualified Wizard.Database.Migration.Production.Migration_0065_idToUuid.Mi
 import qualified Wizard.Database.Migration.Production.Migration_0066_tcKnowledgeModel.Migration as M_0066
 import qualified Wizard.Database.Migration.Production.Migration_0067_openIdClient.Migration as M_0067
 import qualified Wizard.Database.Migration.Production.Migration_0068_roles.Migration as M_0068
+import qualified Wizard.Database.Migration.Production.Migration_0069_setPhaseEventFix.Migration as M_0069
 
 migrationDefinitions :: [MigrationDefinition]
 migrationDefinitions =
@@ -141,4 +142,5 @@ migrationDefinitions =
   , M_0066.definition
   , M_0067.definition
   , M_0068.definition
+  , M_0069.definition
   ]

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

@@ -0,0 +1,20 @@
+module Wizard.Database.Migration.Production.Migration_0069_setPhaseEventFix.Migration (
+  definition,
+) where
+
+import Control.Monad.Logger
+import Control.Monad.Reader (liftIO)
+import Data.Pool (Pool, withResource)
+import Database.PostgreSQL.Migration.Entity
+import Database.PostgreSQL.Simple
+
+definition = (meta, migrate)
+
+meta = MigrationMeta {mmNumber = 69, mmName = "Fix set phase event", mmDescription = "Repair SetPhaseEvent project events with a NULL array element in value so affected projects can be opened again"}
+
+migrate :: Pool Connection -> LoggingT IO (Maybe Error)
+migrate dbPool = do
+  let sql = "UPDATE project_event SET value = '{}' WHERE event_type = 'SetPhaseEvent' AND array_position(value, NULL) IS NOT NULL;"
+  let action conn = execute_ conn sql
+  liftIO $ withResource dbPool action
+  return Nothing