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

fix(build): hlint did not like unnecessary monadic code

Browse Source
This commit is contained in:
Steffen Jost 2022-12-09 16:42:39 +01:00
parent 213899eef5
commit acb52c51f4
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/List.hs
View File

@ -294,7 +294,7 @@ makeCourseTable colChoices psValidator' = do
getCourseListR :: Handler Html getCourseListR :: Handler Html
getCourseListR = do getCourseListR = do
varNotUsed <- return "just a test to see whether warnings are disabled properly" let varNotUsed = "just a test to see whether warnings are disabled properly"
muid <- maybeAuthId muid <- maybeAuthId
let colonnade = widgetColonnade $ mconcat let colonnade = widgetColonnade $ mconcat
[ colCourse -- colCourseDescr [ colCourse -- colCourseDescr