fix: build

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