From d20ad6c5db5b8d0a9fe035f79d77c9d8d56104fa Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <vaupel@cip.ifi.lmu.de>
Date: Mon, 10 Aug 2020 11:40:03 +0200
Subject: [PATCH] Apply 1 suggestion(s) to 1 file(s)

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

diff --git a/src/Handler/Course/Register.hs b/src/Handler/Course/Register.hs
index e180b0243..f23971e43 100644
--- a/src/Handler/Course/Register.hs
+++ b/src/Handler/Course/Register.hs
@@ -268,7 +268,7 @@ postCRegisterR tid ssh csh = do
   muid <- maybeAuthId
   ata <- getSessionActiveAuthTags
   now <- liftIO getCurrentTime
-  courseVisible <- runDB $ E.selectExists . E.from $ \c -> E.where_ $  -- TODO meh...
+  courseVisible <- runDB . E.selectExists . E.from $ \c -> E.where_ $
     c E.^. CourseId E.==. E.val cid
     E.&&. mayViewCourse muid ata now c Nothing
   redirect $ bool NewsR (CourseR tid ssh csh CShowR) courseVisible