diff --git a/src/Foundation.hs b/src/Foundation.hs
index 0fbdd36af..42ddd0570 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -1197,7 +1197,7 @@ tagAccessPredicate AuthRegisterGroup = APDB $ \mAuthId route _ -> case route of
       (Nothing, _) -> return Authorized
       (_, Nothing) -> return AuthenticationRequired
       (Just rGroup, Just uid) -> do
-        [E.Value hasOther] <- $cachedHereBinary (uid, rGroup) . lift . E.selectExists . E.from $ \(tutorial `E.InnerJoin` participant) -> do
+        hasOther <- $cachedHereBinary (uid, rGroup) . lift . E.selectExists . E.from $ \(tutorial `E.InnerJoin` participant) -> do
           E.on $ tutorial E.^. TutorialId E.==. participant E.^. TutorialParticipantTutorial
            E.&&. tutorial E.^. TutorialCourse E.==. E.val tutorialCourse
            E.&&. tutorial E.^. TutorialRegGroup E.==. E.just (E.val rGroup)