fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore: fix hlint

Browse Source
This commit is contained in:
Gregor Kleen 2019-10-01 20:01:43 +02:00
parent e5ba60d608
commit afbd222c15
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Course/Show.hs
View File

@ -253,7 +253,7 @@ getCShowR tid ssh csh = do
showNewsFiles fs = and showNewsFiles fs = and
[ not $ null fs [ not $ null fs
, length fs <= 3 , length fs <= 3
, all (not . elem pathSeparator . view _2) fs , all (notElem pathSeparator . view _2) fs
] ]
mayCreateNews <- hasWriteAccessTo $ CourseR tid ssh csh CNewsNewR mayCreateNews <- hasWriteAccessTo $ CourseR tid ssh csh CNewsNewR