fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(favourites): always move current course up

Browse Source
This commit is contained in:
Gregor Kleen 2019-10-04 21:33:06 +02:00
parent 41a8d6239e
commit 56d89d7f58
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Foundation.hs
View File

@ -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