chore: fix hlint

2019-10-01 20:01:43 +02:00 · 2019-10-01 20:01:43 +02:00 · afbd222c15
commit afbd222c15
parent e5ba60d608
1 changed files with 1 additions and 1 deletions
--- 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