Search user by partial matriclenumbers

This commit is contained in:
SJost 2019-02-19 08:49:43 +01:00
parent cbd2a23a2c
commit 09844a6a78

View File

@ -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)