diff --git a/src/Handler/Material.hs b/src/Handler/Material.hs
index 55c9ced2c..a803b5f8d 100644
--- a/src/Handler/Material.hs
+++ b/src/Handler/Material.hs
@@ -148,8 +148,8 @@ getMaterialListR tid ssh csh = do
             , ( "last-edit"    , SortColumn (E.^. MaterialLastEdit)    )
             ]
       , dbtFilter    = mconcat
-        [ (singletonMap "may-access" . mkFilterProjectedPost $ \(Any b) dbr
-            -> (== b) <$> hasReadAccessTo (matLink . materialName $ row2material dbr) :: DB Bool)
+        [ singletonMap "may-access" . mkFilterProjectedPost $ \(Any b) dbr
+            -> (== b) <$> hasReadAccessTo (matLink . materialName $ row2material dbr) :: DB Bool
         , (singletonMap "searchName". FilterColumn $ \material criterion -> case getLast (criterion :: Last Text) of
               Nothing -> E.val True :: E.SqlExpr (E.Value Bool)
               Just needle -> (E.castString (material E.^. MaterialName) `E.ilike` (E.%) E.++. E.val needle E.++. (E.%)))