From c5eea64b270369ef69e1aa368ec87f0a8846e1fd Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 30 Sep 2020 17:04:18 +0200 Subject: [PATCH] fix(workflows): navigation order --- src/Foundation/Navigation.hs | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) 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