fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Search user by partial matriclenumbers

Browse Source
This commit is contained in:
SJost 2019-02-19 08:49:43 +01:00
parent cbd2a23a2c
commit 09844a6a78
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/Users.hs
View File

@ -100,8 +100,9 @@ getUsersR = do
, ( "matriculation", FilterColumn $ \user (criterion :: Set.Set Text) -> if , ( "matriculation", FilterColumn $ \user (criterion :: Set.Set Text) -> if
| Set.null criterion -> eTrue -- TODO: why can this be eFalse and work still? | Set.null criterion -> eTrue -- TODO: why can this be eFalse and work still?
| otherwise -> | 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 , ( "school", FilterColumn $ \user criterion -> if
| Set.null criterion -> E.val True :: E.SqlExpr (E.Value Bool) | Set.null criterion -> E.val True :: E.SqlExpr (E.Value Bool)