From 43bb0abe7218f6d43b52d9a64e62f0dc29b9972e Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Sun, 29 Nov 2020 13:22:50 +0100
Subject: [PATCH] fix: build

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

diff --git a/src/Handler/Course/Show.hs b/src/Handler/Course/Show.hs
index f62c80d8c..112412a97 100644
--- a/src/Handler/Course/Show.hs
+++ b/src/Handler/Course/Show.hs
@@ -161,7 +161,7 @@ getCShowR tid ssh csh = do
           E.where_ $ tutorial E.^. TutorialCourse E.==. E.val cid
           let showRoom = maybe E.false (flip showTutorialRoom tutorial . E.val) mbAid
                    E.||. E.not_ (tutorial E.^. TutorialRoomHidden)
-          return (tutorial, )
+          return (tutorial, showRoom)
         dbtRowKey = (E.^. TutorialId)
         dbtProj = traverse $ return . over _2 E.unValue
         dbtColonnade = dbColonnade $ mconcat