From e69821a56fbdfc3d7e86a2df50f1c5ae08a9c7fa Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Thu, 15 Dec 2022 19:25:14 +0100 Subject: [PATCH] chore: rename unused bindings --- src/Foundation/SiteLayout.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/Foundation/SiteLayout.hs b/src/Foundation/SiteLayout.hs index cb1fbb1ba..a6c6c8bf6 100644 --- a/src/Foundation/SiteLayout.hs +++ b/src/Foundation/SiteLayout.hs @@ -282,7 +282,7 @@ siteLayout' overrideHeading widget = do showFavToggle FavouriteCurrent = isJust muid showFavToggle _favouriteReason = False favouriteToggleRes <- runFormPost $ courseFavouriteToggleForm currentReason - let favouriteToggleWgt = favouriteToggleRes & \((_, favouriteToggleView), favouriteToggleEncoding) -> + let _favouriteToggleWgt = favouriteToggleRes & \((_, favouriteToggleView), favouriteToggleEncoding) -> wrapForm favouriteToggleView def { formAction = maybeRoute , formEncoding = favouriteToggleEncoding @@ -343,12 +343,12 @@ siteLayout' overrideHeading widget = do navItems = map (view _2) favourites ++ toListOf (folded . typesUsing @NavChildren @NavLink . to navBaseRoute) nav highR = find (`elem` navItems) . uncurry (++) $ partition (`elem` map (view _2) favourites) crumbs highlightNav = (||) <$> navForceActive <*> (highlight . navBaseRoute) - favouriteTermReason :: TermIdentifier -> FavouriteReason -> [((CourseName, TermId, SchoolId, CourseShorthand), Route UniWorX, Maybe [(Text, Text)], FavouriteReason, Bool, Bool, Bool)] - favouriteTermReason tid favReason' = favourites + _favouriteTermReason :: TermIdentifier -> FavouriteReason -> [((CourseName, TermId, SchoolId, CourseShorthand), Route UniWorX, Maybe [(Text, Text)], FavouriteReason, Bool, Bool, Bool)] + _favouriteTermReason tid favReason' = favourites & filter (\((_, tid', _, _), _, _, favReason, _, _, _) -> unTermKey tid' == tid && favReason == favReason') & sortOn (\((cName, _, _, _), _, _, _, _, _, _) -> cName) - anyFavToggle = flip any ((,) <$> universeF <*> favouriteTerms) $ \(reason, term) -> - showFavToggle reason && not (null $ favouriteTermReason term reason) + _anyFavToggle = flip any ((,) <$> universeF <*> favouriteTerms) $ \(reason, term) -> + showFavToggle reason && not (null $ _favouriteTermReason term reason) -- We break up the default layout into two components: -- default-layout is the contents of the body tag, and