diff --git a/src/Handler/Exam/Users.hs b/src/Handler/Exam/Users.hs
index 9fbcee489..c9a73459b 100644
--- a/src/Handler/Exam/Users.hs
+++ b/src/Handler/Exam/Users.hs
@@ -547,7 +547,7 @@ postEUsersR tid ssh csh examn = do
                     E.&&.      tut E.^. TutorialName `E.hasInfix` E.val (CI.mk criterion)
             ]
 
-          dbtFilterUI mPrev = mconcat $
+          dbtFilterUI mPrev = mconcat
             [ fltrUserNameEmailUI    mPrev
             , fltrUserMatriclenrUI   mPrev
             , prismAForm (singletonFilter "occurrence") mPrev $ aopt (selectField' (Just $ SomeMessage MsgExamNoFilter) $ optionsF [CI.original examOccurrenceName | Entity _ ExamOccurrence{..} <- occurrences]) (fslI MsgTableExamOccurrence)