fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

fix(migration): dont force app settings

Browse Source
This commit is contained in:
Sarah Vaupel 2022-05-20 21:25:34 +02:00 committed by Sarah Vaupel
parent 2fa29d077b
commit 4486a00d45
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Model/Migration/Definitions.hs
View File

@ -1069,10 +1069,9 @@ customMigrations = mapF $ \case
Migration20220519WorkflowArchivation -> do
now <- liftIO getCurrentTime
mArchiveAfter <- lift $ view _appWorkflowWorkflowArchiveAfter
whenM (and2M (return $ is _Just mArchiveAfter) (not <$> columnExists "workflow_workflow" "archived")) $ do
whenM (and2M (tableExists "workflow_workflow") $ not <$> columnExists "workflow_workflow" "archived") $ do
[executeQQ| ALTER TABLE "workflow_workflow" ADD "archived" timestamp with time zone; |]
mArchiveAfter <- lift $ view _appWorkflowWorkflowArchiveAfter
let getWorkflows = [queryQQ| SELECT "workflow_workflow"."id", "workflow_workflow".("state"->>-1)::json->'time', "workflow_workflow".("state"->>-1)::json->'to', "shared_workflow_graph"."graph"->'nodes' FROM "workflow_workflow" INNER JOIN "shared_workflow_graph" ON "workflow_workflow"."graph" = "shared_workflow_graph"."hash"; |]
migrateArchived [ fromPersistValue -> Right (wwId :: WorkflowWorkflowId), fromPersistValue -> Right (wpTime :: UTCTime), fromPersistValue -> Right (wpTo :: WorkflowGraphNodeLabel), fromPersistValue -> Right (wGraph :: DBWorkflowGraph) ] = maybeT (return ()) $ do
archiveAfter <- hoistMaybe mArchiveAfter