diff --git a/src/Foundation/Navigation.hs b/src/Foundation/Navigation.hs index 01ea9a541..c533c1703 100644 --- a/src/Foundation/Navigation.hs +++ b/src/Foundation/Navigation.hs @@ -644,6 +644,18 @@ defaultLinks = fmap catMaybes . mapM runMaybeT $ -- Define the menu items of the , navForceActive = False } } + , return NavHeader + { navHeaderRole = NavHeaderPrimary + , navIcon = IconMenuWorkflows + , navLink = NavLink + { navLabel = MsgMenuGlobalWorkflowInstanceList + , navRoute = GlobalWorkflowInstanceListR + , navAccess' = return True + , navType = NavTypeLink { navModal = False } + , navQuick' = mempty + , navForceActive = False + } + } , return NavHeaderContainer { navHeaderRole = NavHeaderPrimary , navLabel = SomeMessage MsgAdminHeading @@ -770,18 +782,6 @@ defaultLinks = fmap catMaybes . mapM runMaybeT $ -- Define the menu items of the } ] } - , return NavHeader - { navHeaderRole = NavHeaderPrimary - , navIcon = IconMenuWorkflows - , navLink = NavLink - { navLabel = MsgMenuGlobalWorkflowInstanceList - , navRoute = GlobalWorkflowInstanceListR - , navAccess' = return True - , navType = NavTypeLink { navModal = False } - , navQuick' = mempty - , navForceActive = False - } - } ] pageActions :: ( MonadHandler m