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

templates/participants-intersect.hamlet

@@ -23,4 +23,4 @@ $maybe (courses, intersections) <- intersectionsRes
                   $with n <- symmIntersection intersections lCid uCid
                     <td .table__td .text--center :uCid == lCid:.table__td--automatic :uCid /= lCid:.heated :uCid /= lCid:style="--hotness: #{toPathPiece (intersectionHotness intersections lCid uCid)}">
                       $if showNumber n lCid uCid
-                        #{n}
+                        #{n}