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

chore: reintroduce warnings as errors

Browse Source
This commit is contained in:
Sarah Vaupel 2022-12-15 19:11:47 +01:00
parent a7ed5d637b
commit df28d9de4e
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
package.yaml
View File

@ -245,8 +245,10 @@ default-extensions:
- StandaloneKindSignatures - StandaloneKindSignatures
- NoStarIsType - NoStarIsType
ghc-options: ghc-options:
- -w - -Wall
- -Wmissing-home-modules - -Wmissing-home-modules
- -Wredundant-constraints
- -Widentities
- -Wincomplete-uni-patterns - -Wincomplete-uni-patterns
- -fno-warn-type-defaults - -fno-warn-type-defaults
- -fno-warn-unrecognised-pragmas - -fno-warn-unrecognised-pragmas
@ -257,6 +259,7 @@ ghc-options:
when: when:
- condition: flag(pedantic) - condition: flag(pedantic)
ghc-options: ghc-options:
- -Werror
- -fwarn-tabs - -fwarn-tabs
- condition: flag(dev) - condition: flag(dev)
then: then:

1
src/Handler/Course/List.hs
View File

@ -215,7 +215,6 @@ makeCourseTable colChoices psValidator' = do
getCourseListR :: Handler Html getCourseListR :: Handler Html
getCourseListR = do getCourseListR = do
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