diff --git a/src/Handler/Course/List.hs b/src/Handler/Course/List.hs
index c7ea11753..978604c8c 100644
--- a/src/Handler/Course/List.hs
+++ b/src/Handler/Course/List.hs
@@ -255,10 +255,10 @@ makeCourseTable colChoices psValidator' = do
                    E.||. (E.maybe (E.val mempty) (E.castString . esqueletoMarkupOutput) (course E.^. CourseDescription) `E.ilike` (E.%) E.++. E.val needle E.++. (E.%))
       , singletonMap "search-shorthand" . FilterColumn $ \(view queryCourse -> course) criterion -> case getLast (criterion :: Last Text) of
           Nothing -> E.val True :: E.SqlExpr (E.Value Bool)
-          Just needle -> (E.castString (course E.^. CourseShorthand) `E.ilike` (E.%) E.++. E.val needle E.++. (E.%))
+          Just needle -> E.castString (course E.^. CourseShorthand) `E.ilike` (E.%) E.++. E.val needle E.++. (E.%)
       , singletonMap "search-title" . FilterColumn $ \(view queryCourse -> course) criterion -> case getLast (criterion :: Last Text) of
           Nothing -> E.val True :: E.SqlExpr (E.Value Bool)
-          Just needle -> (E.castString (course E.^. CourseName) `E.ilike` (E.%) E.++. E.val needle E.++. (E.%))
+          Just needle -> E.castString (course E.^. CourseName) `E.ilike` (E.%) E.++. E.val needle E.++. (E.%)
       , singletonMap "allocation" . FilterColumn $ \row (criteria :: Set AllocationSearch) -> if
           | Set.null criteria -> E.true
           | otherwise -> flip E.any criteria $ \case