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

fix(user): check reachability by post or email did not account for department

Browse Source
This commit is contained in:
Steffen Jost 2023-01-31 14:38:49 +01:00
parent f434eff083
commit ed147dbd20
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Handler/Admin.hs
View File

@ -146,6 +146,7 @@ retrieveUnreachableUsers :: E.SqlQuery (E.SqlExpr (Entity User))
retrieveUnreachableUsers = do retrieveUnreachableUsers = do
user <- E.from $ E.table @User user <- E.from $ E.table @User
E.where_ $ E.isNothing (user E.^. UserPostAddress) E.where_ $ E.isNothing (user E.^. UserPostAddress)
E.&&. E.isNothing (user E.^. UserCompanyDepartment)
E.&&. E.not_ ((user E.^. UserEmail) `E.like` E.val "%@%.%") E.&&. E.not_ ((user E.^. UserEmail) `E.like` E.val "%@%.%")
return user return user
@ -225,4 +226,4 @@ retrieveDriversRWithoutF nowaday = do
{- {-
getAdjustLicences :: SchoolId -> QualificationShortand -> Handler Html getAdjustLicences :: SchoolId -> QualificationShortand -> Handler Html
-} -}