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