$forall (MenuItem{menuItemType, menuItemRoute = _, menuItemIcon = _, menuItemLabel, menuItemModal = _}, menuIdent, route) <- menuTypes $case menuItemType $of Footer $# Not used but available (remove ` = _` from the pattern match above, as needed): $# highlight (urlRoute menuItemRoute) :: Bool -- ^ Is this menu item currently active (i.e.: are we on this page) $# menuItemModal :: Bool -- ^ Should this menu item open a modal instead of being a normal link $# menuItemIcon :: Maybe Text -- ^ Should this menu item have an icon, if yes, then the name of the icon _{SomeMessage menuItemLabel} $of _