diff --git a/src/Foundation.hs b/src/Foundation.hs index 5a36a774e..8a307908b 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -492,7 +492,7 @@ instance Yesod UniWorX where in (c, courseRoute, ) <$> filterM (menuItemAccessCallback . menuItem) (pageActions courseRoute) let highlight :: Route UniWorX -> Bool -- highlight last route in breadcrumbs, favorites taking priority - highlight = let crumbs = mcons mcurrentRoute $ fst <$> parents + highlight = let crumbs = mcons mcurrentRoute $ fst <$> reverse parents navItems = map snd3 favourites ++ map (menuItemRoute . menuItem) menuTypes highR = find (`elem` navItems) . uncurry (++) $ partition (`elem` map snd3 favourites) crumbs in \r -> Just r == highR