From 4993c7994c25f7b74cf351de251992dbc58204c9 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Sun, 8 Jul 2018 22:31:11 +0200
Subject: [PATCH] Fix preference-order on parents

---
 src/Foundation.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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