From 39b8c64b3caf122bc261fdfbdde13b0e045478c5 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Mon, 19 Jun 2023 07:22:52 +0000 Subject: [PATCH] chore(menu): hide currently unused functions in extra container --- src/Foundation/Navigation.hs | 64 ++++++++++++++++++++++-------------- 1 file changed, 40 insertions(+), 24 deletions(-) diff --git a/src/Foundation/Navigation.hs b/src/Foundation/Navigation.hs index b889d5436..6524a442a 100644 --- a/src/Foundation/Navigation.hs +++ b/src/Foundation/Navigation.hs @@ -687,30 +687,30 @@ defaultLinks = fmap catMaybes . mapM runMaybeT $ -- Define the menu items of the , navForceActive = False } } - , return NavHeader - { navHeaderRole = NavHeaderPrimary - , navIcon = IconMenuCorrections - , navLink = NavLink - { navLabel = MsgMenuCorrections - , navRoute = CorrectionsR - , navAccess' = NavAccessTrue - , navType = NavTypeLink { navModal = False } - , navQuick' = mempty - , navForceActive = False - } - } - , return NavHeader - { navHeaderRole = NavHeaderPrimary - , navIcon = IconMenuExams - , navLink = NavLink - { navLabel = MsgMenuExamOfficeExams - , navRoute = ExamOfficeR EOExamsR - , navAccess' = NavAccessTrue - , navType = NavTypeLink { navModal = False } - , navQuick' = mempty - , navForceActive = False - } - } + -- , return NavHeader + -- { navHeaderRole = NavHeaderPrimary + -- , navIcon = IconMenuCorrections + -- , navLink = NavLink + -- { navLabel = MsgMenuCorrections + -- , navRoute = CorrectionsR + -- , navAccess' = NavAccessTrue + -- , navType = NavTypeLink { navModal = False } + -- , navQuick' = mempty + -- , navForceActive = False + -- } + -- } + -- , return NavHeader + -- { navHeaderRole = NavHeaderPrimary + -- , navIcon = IconMenuExams + -- , navLink = NavLink + -- { navLabel = MsgMenuExamOfficeExams + -- , navRoute = ExamOfficeR EOExamsR + -- , navAccess' = NavAccessTrue + -- , navType = NavTypeLink { navModal = False } + -- , navQuick' = mempty + -- , navForceActive = False + -- } + -- } , return NavHeader { navHeaderRole = NavHeaderPrimary , navIcon = IconMenuQualification @@ -847,6 +847,22 @@ defaultLinks = fmap catMaybes . mapM runMaybeT $ -- Define the menu items of the , navQuick' = mempty , navForceActive = False } + , NavLink + { navLabel = MsgMenuCorrections + , navRoute = CorrectionsR + , navAccess' = NavAccessTrue + , navType = NavTypeLink { navModal = False } + , navQuick' = mempty + , navForceActive = False + } + , NavLink + { navLabel = MsgMenuExamOfficeExams + , navRoute = ExamOfficeR EOExamsR + , navAccess' = NavAccessTrue + , navType = NavTypeLink { navModal = False } + , navQuick' = mempty + , navForceActive = False + } , NavLink { navLabel = MsgMenuExternalExamList , navRoute = EExamListR