diff --git a/src/Handler/Course/Show.hs b/src/Handler/Course/Show.hs
index 7f14b544e..36ff17ece 100644
--- a/src/Handler/Course/Show.hs
+++ b/src/Handler/Course/Show.hs
@@ -253,7 +253,7 @@ getCShowR tid ssh csh = do
       showNewsFiles fs = and
         [ not $ null fs
         , length fs <= 3
-        , all (not . elem pathSeparator . view _2) fs
+        , all (notElem pathSeparator . view _2) fs
         ]
   mayCreateNews <- hasWriteAccessTo $ CourseR tid ssh csh CNewsNewR