fix(hlint): implement hlint suggestion

2024-12-03 11:58:30 +01:00 · 2024-12-03 11:58:30 +01:00 · 5f3d8a88e2
commit 5f3d8a88e2
parent b42e93e891
1 changed files with 7 additions and 7 deletions
--- a/src/Foundation/SiteLayout.hs
+++ b/src/Foundation/SiteLayout.hs
@ -266,8 +266,8 @@ siteLayout' overrideHeading widget = do
           , nav'
           , contentHeadline
           , mmsgs
-           , maybe userDefaultMaxFavouriteTerms userMaxFavouriteTerms $ view _2 <$> muid
-           , maybe userDefaultTheme userTheme $ view _2 <$> muid
+           , maybe userDefaultMaxFavouriteTerms (userMaxFavouriteTerms . view _2) muid
+           , maybe userDefaultTheme             (userTheme . view _2)             muid
           , storedReasonAndToggleRoute
           )