diff --git a/src/Handler/Users.hs b/src/Handler/Users.hs index c5968789f..8e9f05af2 100644 --- a/src/Handler/Users.hs +++ b/src/Handler/Users.hs @@ -100,8 +100,9 @@ getUsersR = do , ( "matriculation", FilterColumn $ \user (criterion :: Set.Set Text) -> if | Set.null criterion -> eTrue -- TODO: why can this be eFalse and work still? | otherwise -> - -- (user E.^. UserMatrikelnummer) `E.in_` (E.valList $ Set.toList criterion) - user E.^. UserMatrikelnummer `E.in_` E.justList (E.valList $ Set.toList criterion) + -- user E.^. UserMatrikelnummer `E.in_` E.justList (E.valList $ Set.toList criterion) + Set.foldr (\needle acc -> acc E.||. (user E.^. UserMatrikelnummer) `eLike` needle) eFalse criterion + ) , ( "school", FilterColumn $ \user criterion -> if | Set.null criterion -> E.val True :: E.SqlExpr (E.Value Bool)