From 573abcf43f5cdf4d81d4a390ee2c9dcb8b9266da Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Fri, 28 Mar 2025 08:32:30 +0100 Subject: [PATCH] refactor(lms): fix hlint suggestions --- backend/src/Handler/LMS/Learners.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/backend/src/Handler/LMS/Learners.hs b/backend/src/Handler/LMS/Learners.hs index 2088872a2..39eaaf94a 100644 --- a/backend/src/Handler/LMS/Learners.hs +++ b/backend/src/Handler/LMS/Learners.hs @@ -136,7 +136,7 @@ mkUserTable _sid qsh qid cutoff = do [ (csvLmsIdent , FilterColumn $ E.mkContainsFilterWithCommaPlus LmsIdent (E.^. LmsUserIdent )) , (csvLmsResetPin , FilterColumn $ E.mkExactFilterLast (E.^. LmsUserResetPin)) ] - dbtFilterUI = \mPrev -> mconcat + dbtFilterUI mPrev = mconcat [ prismAForm (singletonFilter csvLmsIdent . maybePrism _PathPiece) mPrev $ aopt (hoistField lift textField) (fslI MsgTableLmsIdent & setTooltip MsgTableFilterCommaPlus) , prismAForm (singletonFilter csvLmsResetPin . maybePrism _PathPiece) mPrev $ aopt (hoistField lift boolField') (fslI MsgTableLmsResetPin) ] @@ -150,7 +150,7 @@ mkUserTable _sid qsh qid cutoff = do dbtCsvNoExportData = Just id dbtCsvExampleData = Nothing dbtCsvHeader = const $ return lmsUserTableCsvHeader - dbtCsvDoEncode = \() -> C.map (doEncode' . view _2) + dbtCsvDoEncode () = C.map (doEncode' . view _2) doEncode' = LmsUserTableCsv <$> view (_dbrOutput . _entityVal . _lmsUserIdent) <*> view (_dbrOutput . _entityVal . _lmsUserPin)