diff --git a/src/Foundation.hs b/src/Foundation.hs index 1a9c406de..04e18506c 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -1721,8 +1721,8 @@ siteLayout' headingOverride widget = do isAssociated = isParticipant E.||. isLecturer E.||. isCorrector E.||. isTutor reason = E.case_ - [ E.when_ isAssociated E.then_ . E.just $ E.val FavouriteParticipant - , E.when_ isCurrent E.then_ . E.just $ E.val FavouriteCurrent + [ E.when_ isCurrent E.then_ . E.just $ E.val FavouriteCurrent + , E.when_ isAssociated E.then_ . E.just $ E.val FavouriteParticipant ] (E.else_ $ courseFavourite E.?. CourseFavouriteReason) E.where_ $ ((isFavourite E.||. isAssociated) E.&&. notBlacklist) E.||. isCurrent