From 213899eef55d9e2eea4feeac009d6cb7e8e8bb19 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Fri, 9 Dec 2022 12:51:40 +0100
Subject: [PATCH] chore(ghc): disable almost all warnings, even under flag
 pedantic

---
 package.yaml               | 7 ++-----
 src/Handler/Course/List.hs | 1 +
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/package.yaml b/package.yaml
index df5990b79..8d0734a51 100644
--- a/package.yaml
+++ b/package.yaml
@@ -245,10 +245,8 @@ default-extensions:
   - StandaloneKindSignatures
   - NoStarIsType
 ghc-options:
-  - -Wall
+  - -w
   - -Wmissing-home-modules
-  - -Wredundant-constraints
-  - -Widentities
   - -Wincomplete-uni-patterns
   - -fno-warn-type-defaults
   - -fno-warn-unrecognised-pragmas
@@ -258,8 +256,7 @@ ghc-options:
   - -freduction-depth=0
 when:
   - condition: flag(pedantic)
-    ghc-options:
-      - -Werror
+    ghc-options:      
       - -fwarn-tabs
   - condition: flag(dev)
     then:
diff --git a/src/Handler/Course/List.hs b/src/Handler/Course/List.hs
index c92fcc25e..d4c4a94d0 100644
--- a/src/Handler/Course/List.hs
+++ b/src/Handler/Course/List.hs
@@ -294,6 +294,7 @@ makeCourseTable colChoices psValidator' = do
 
 getCourseListR :: Handler Html
 getCourseListR = do
+  varNotUsed <- return "just a test to see whether warnings are disabled properly"
   muid <- maybeAuthId
   let colonnade = widgetColonnade $ mconcat
         [ colCourse -- colCourseDescr