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)