feat(workflows): implement archive and list page actions

messages/uniworx/utils/navigation/menu/de-de-formal.msg

@@ -127,11 +127,13 @@ MenuWorkflowInstanceWorkflows: Laufende Workflows
 MenuWorkflowInstanceInitiate: Workflow starten
 MenuWorkflowInstanceEdit: Bearbeiten
 MenuWorkflowWorkflowList: Laufende Workflows
+MenuWorkflowWorkflowArchive: Archivierte Workflows
 MenuWorkflowWorkflowEdit: Editieren
 MenuWorkflowWorkflowDelete: Löschen
 MenuGlobalWorkflowInstanceList: Systemweite Workflows
 MenuTopWorkflowInstanceList !ident-ok: Workflows
 MenuTopWorkflowWorkflowList: Laufende Workflows
+MenuTopWorkflowWorkflowArchive: Archivierte Workflows
 MenuTopWorkflowWorkflowListHeader !ident-ok: Workflows
 MenuGlossary: Begriffsverzeichnis
 MenuVersion: Versionsgeschichte

messages/uniworx/utils/navigation/menu/en-eu.msg

@@ -128,11 +128,13 @@ MenuWorkflowInstanceWorkflows: Running workflows
 MenuWorkflowInstanceInitiate: Start workflow
 MenuWorkflowInstanceEdit: Edit
 MenuWorkflowWorkflowList: Running workflows
+MenuWorkflowWorkflowArchive: Archived workflows
 MenuWorkflowWorkflowEdit: Edit
 MenuWorkflowWorkflowDelete: Delete
 MenuGlobalWorkflowInstanceList: System-wide workflows
 MenuTopWorkflowInstanceList: Workflows
 MenuTopWorkflowWorkflowList: Running workflows
+MenuTopWorkflowWorkflowArchive: Archived workflows
 MenuTopWorkflowWorkflowListHeader: Workflows
 MenuGlossary: Glossary
 MenuVersion: Version history

src/Foundation/Navigation.hs

@@ -2636,6 +2636,32 @@ pageActions route | Just (rScope, WorkflowInstanceR win WIEditR) <- route ^? _Wo
     , navChildren = []
     }
   ]
+pageActions route | Just (rScope, WorkflowWorkflowListR) <- route ^? _WorkflowScopeRoute = return
+  [ NavPageActionPrimary
+    { navLink = NavLink
+      { navLabel       = MsgMenuWorkflowWorkflowArchive
+      , navRoute       = _WorkflowScopeRoute # (rScope, WorkflowWorkflowArchiveR)
+      , navAccess'     = NavAccessTrue
+      , navType        = NavTypeLink { navModal = False }
+      , navQuick'      = mempty
+      , navForceActive = False
+      }
+    , navChildren = []
+    }
+  ]
+pageActions route | Just (rScope, WorkflowWorkflowArchiveR) <- route ^? _WorkflowScopeRoute = return
+  [ NavPageActionPrimary
+    { navLink = NavLink
+      { navLabel       = MsgMenuWorkflowWorkflowList
+      , navRoute       = _WorkflowScopeRoute # (rScope, WorkflowWorkflowListR)
+      , navAccess'     = NavAccessTrue
+      , navType        = NavTypeLink { navModal = False }
+      , navQuick'      = mempty
+      , navForceActive = False
+      }
+    , navChildren = []
+    }
+  ]
 pageActions route | Just (rScope, WorkflowWorkflowR cID WWWorkflowR) <- route ^? _WorkflowScopeRoute = return
   [ NavPageActionSecondary
     { navLink = NavLink
@@ -2671,6 +2697,32 @@ pageActions TopWorkflowInstanceListR = return
     , navChildren = []
     }
   ]
+pageActions TopWorkflowWorkflowListR = return
+  [ NavPageActionPrimary
+    { navLink = NavLink
+      { navLabel       = MsgMenuTopWorkflowWorkflowArchive
+      , navRoute       = TopWorkflowWorkflowArchiveR
+      , navAccess'     = NavAccessTrue
+      , navType        = NavTypeLink { navModal = False }
+      , navQuick'      = mempty
+      , navForceActive = False
+      }
+    , navChildren = []
+    }
+  ]
+pageActions TopWorkflowWorkflowArchiveR = return
+  [ NavPageActionPrimary
+    { navLink = NavLink
+      { navLabel       = MsgMenuTopWorkflowWorkflowList
+      , navRoute       = TopWorkflowWorkflowListR
+      , navAccess'     = NavAccessTrue
+      , navType        = NavTypeLink { navModal = False }
+      , navQuick'      = mempty
+      , navForceActive = False
+      }
+    , navChildren = []
+    }
+  ]
 pageActions _ = return []
 
 submissionList :: ( MonadIO m