chore(ghc): disable almost all warnings, even under flag pedantic

This commit is contained in:
Steffen Jost 2022-12-09 12:51:40 +01:00
parent d72f92ff97
commit 213899eef5
2 changed files with 3 additions and 5 deletions

View File

@ -245,10 +245,8 @@ default-extensions:
- StandaloneKindSignatures - StandaloneKindSignatures
- NoStarIsType - NoStarIsType
ghc-options: ghc-options:
- -Wall - -w
- -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
@ -258,8 +256,7 @@ ghc-options:
- -freduction-depth=0 - -freduction-depth=0
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:

View File

@ -294,6 +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"
muid <- maybeAuthId muid <- maybeAuthId
let colonnade = widgetColonnade $ mconcat let colonnade = widgetColonnade $ mconcat
[ colCourse -- colCourseDescr [ colCourse -- colCourseDescr