lookUpEmployee2.elm

lookUpEmployee2 : Id -> Table1 -> Maybe Employee1
lookUpEmployee2 id table =
    let
        maybePerson =
            table
                |> List.find (\(EmployeeFromDb1 employee) -> employee.id == id)

        employees =
            table
                |> List.filter (\(EmployeeFromDb1 emp) -> emp.employerId == id)
                |> List.map (\emp -> employeeFromDbToApplication emp [])
    in
        Maybe.map
            (\(EmployeeFromDb1 employeeFromDb) ->
                employeeFromDbToApplication (EmployeeFromDb1 employeeFromDb) employees
            )
            maybePerson