From 09844a6a78df00544600ef49cdbb8033c580ff2f Mon Sep 17 00:00:00 2001 From: SJost Date: Tue, 19 Feb 2019 08:49:43 +0100 Subject: [PATCH] Search user by partial matriclenumbers --- src/Handler/Users.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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)