From c4b225c07a033e987031c48fe645537aaef5c7e1 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
Date: Fri, 27 May 2022 00:44:47 +0200
Subject: [PATCH] chore(navigation): add missing page actions for wf archives

---
 src/Foundation/Navigation.hs | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/src/Foundation/Navigation.hs b/src/Foundation/Navigation.hs
index 2c5214862..7b5bbb4df 100644
--- a/src/Foundation/Navigation.hs
+++ b/src/Foundation/Navigation.hs
@@ -2739,6 +2739,32 @@ pageActions TopWorkflowWorkflowArchiveR = return
     , navChildren = []
     }
   ]
+pageActions (SchoolR ssh (SchoolWorkflowInstanceR swiName SWIWorkflowsR)) = return
+  [ NavPageActionPrimary
+    { navLink = NavLink
+      { navLabel       = MsgMenuWorkflowWorkflowArchive
+      , navRoute       = SchoolR ssh $ SchoolWorkflowInstanceR swiName SWIWorkflowsArchiveR
+      , navAccess'     = NavAccessTrue
+      , navType        = NavTypeLink { navModal = False }
+      , navQuick'      = mempty
+      , navForceActive = False
+      }
+    , navChildren = []
+    }
+  ]
+pageActions (SchoolR ssh (SchoolWorkflowInstanceR swiName SWIWorkflowsArchiveR)) = return
+  [ NavPageActionPrimary
+    { navLink = NavLink
+      { navLabel       = MsgMenuWorkflowWorkflowList
+      , navRoute       = SchoolR ssh $ SchoolWorkflowInstanceR swiName SWIWorkflowsR
+      , navAccess'     = NavAccessTrue
+      , navType        = NavTypeLink { navModal = False }
+      , navQuick'      = mempty
+      , navForceActive = False
+      }
+    , navChildren = []
+    }
+  ]
 pageActions _ = return []
 
 submissionList :: ( MonadIO m