fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(workflows): navigation order

Browse Source
This commit is contained in:
Gregor Kleen 2020-09-30 17:04:18 +02:00
parent 30be798286
commit c5eea64b27
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/Foundation/Navigation.hs
View File

@ -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