feat(participants): small Name-change

src/Application.hs

@@ -708,3 +708,4 @@ addPWEntry User{ userAuthentication = _, ..} (Text.encodeUtf8 -> pw) = db' $ do
   PWHashConf{..} <- getsYesod $ view _appAuthPWHash
   (AuthPWHash . Text.decodeUtf8 -> userAuthentication) <- liftIO $ makePasswordWith pwHashAlgorithm pw pwHashStrength
   void $ insert User{..}
+

src/Handler/Participants.hs

@@ -110,8 +110,8 @@ postParticipantsIntersectR = do
           -> Set.size $ Map.findWithDefault Set.empty lCid courseUsers `Set.intersection` Map.findWithDefault Set.empty uCid courseUsers
         selfIntersections = Map.mapKeysMonotonic (\cid -> (cid, cid)) $ Set.size <$> courseUsers
         intersections' = Map.union intersections selfIntersections 
-    let allUsers = setIntersectAll $ Map.elems courseUsers
-    let mapIntersect = mapIntersectNotOne courseUsers
+    -- let allUsers = setUnionAll $ Map.elems courseUsers
+    -- let mapIntersect = mapIntersectNotOne courseUsers
     return (courses, intersections')
 
   let