From 56d89d7f5840033985f1b053920ebe8a6fdc3dc7 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 4 Oct 2019 21:33:06 +0200 Subject: [PATCH] fix(favourites): always move current course up --- src/Foundation.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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