From a882a3c0d03ffc57902cbec779621fb58617ed3b Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
Date: Mon, 12 Dec 2022 02:01:55 +0100
Subject: [PATCH] feat(add-users): more page-actions for convenience

---
 src/Foundation/Navigation.hs | 84 ++++++++++++++++++------------------
 1 file changed, 43 insertions(+), 41 deletions(-)

diff --git a/src/Foundation/Navigation.hs b/src/Foundation/Navigation.hs
index 3d7d5c2cb..8428952cf 100644
--- a/src/Foundation/Navigation.hs
+++ b/src/Foundation/Navigation.hs
@@ -1813,51 +1813,53 @@ pageActions (CTutorialR tid ssh csh tutn TEditR) = return
       }
     }
   ]
-pageActions (CTutorialR tid ssh csh tutn TUsersR) = return
-  [ NavPageActionPrimary
-    { navLink = NavLink
-      { navLabel       = MsgMenuCourseAddMembers
-      , navRoute       = CourseR tid ssh csh CAddUserR
-      , navAccess'     = NavAccessTrue
-      , navType        = NavTypeLink { navModal = True }
-      , navQuick'      = navQuick NavQuickViewPageActionSecondary
-      , navForceActive = False
+pageActions (CTutorialR tid ssh csh tutn TUsersR) = do
+  membersSecondary <- pageQuickActions NavQuickViewPageActionSecondary $ CourseR tid ssh csh CUsersR
+  return
+    [ NavPageActionPrimary
+      { navLink = NavLink
+        { navLabel       = MsgMenuCourseMembers
+        , navRoute       = CourseR tid ssh csh CUsersR
+        , navAccess'     = NavAccessTrue
+        , navType        = NavTypeLink { navModal = False }
+        , navQuick'      = navQuick NavQuickViewPageActionSecondary
+        , navForceActive = False
+        }
+      , navChildren = membersSecondary
       }
-    , navChildren = []
-    }
-  , NavPageActionPrimary
-    { navLink = NavLink
-      { navLabel       = MsgMenuTutorialComm
-      , navRoute       = CTutorialR tid ssh csh tutn TCommR
-      , navAccess'     = NavAccessTrue
-      , navType        = NavTypeLink { navModal = False }
-      , navQuick'      = mempty
-      , navForceActive = False
+    , NavPageActionPrimary
+      { navLink = NavLink
+        { navLabel       = MsgMenuTutorialComm
+        , navRoute       = CTutorialR tid ssh csh tutn TCommR
+        , navAccess'     = NavAccessTrue
+        , navType        = NavTypeLink { navModal = False }
+        , navQuick'      = mempty
+        , navForceActive = False
+        }
+      , navChildren = []
       }
-    , navChildren = []
-    }
-  , NavPageActionPrimary
-    { navLink = NavLink
-      { navLabel       = MsgMenuTutorialEdit
-      , navRoute       = CTutorialR tid ssh csh tutn TEditR
-      , navAccess'     = NavAccessTrue
-      , navType        = NavTypeLink { navModal = False }
-      , navQuick'      = mempty
-      , navForceActive = False
+    , NavPageActionPrimary
+      { navLink = NavLink
+        { navLabel       = MsgMenuTutorialEdit
+        , navRoute       = CTutorialR tid ssh csh tutn TEditR
+        , navAccess'     = NavAccessTrue
+        , navType        = NavTypeLink { navModal = False }
+        , navQuick'      = mempty
+        , navForceActive = False
+        }
+      , navChildren = []
       }
-    , navChildren = []
-    }
-  , NavPageActionSecondary
-    { navLink = NavLink
-      { navLabel       = MsgMenuTutorialDelete
-      , navRoute       = CTutorialR tid ssh csh tutn TDeleteR
-      , navAccess'     = NavAccessTrue
-      , navType        = NavTypeLink { navModal = False }
-      , navQuick'      = mempty
-      , navForceActive = False
+    , NavPageActionSecondary
+      { navLink = NavLink
+        { navLabel       = MsgMenuTutorialDelete
+        , navRoute       = CTutorialR tid ssh csh tutn TDeleteR
+        , navAccess'     = NavAccessTrue
+        , navType        = NavTypeLink { navModal = False }
+        , navQuick'      = mempty
+        , navForceActive = False
+        }
       }
-    }
-  ]
+    ]
 pageActions (CourseR tid ssh csh CExamListR) = return
   [ NavPageActionPrimary
     { navLink = NavLink