From acb52c51f429b35f91c9c8a491af6b353c9b5e75 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Fri, 9 Dec 2022 16:42:39 +0100
Subject: [PATCH] fix(build): hlint did not like unnecessary monadic code

---
 src/Handler/Course/List.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Course/List.hs b/src/Handler/Course/List.hs
index d4c4a94d0..2cd7f36ab 100644
--- a/src/Handler/Course/List.hs
+++ b/src/Handler/Course/List.hs
@@ -294,7 +294,7 @@ makeCourseTable colChoices psValidator' = do
 
 getCourseListR :: Handler Html
 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
   let colonnade = widgetColonnade $ mconcat
         [ colCourse -- colCourseDescr