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

src/Handler/Admin.hs

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