lookUpEmployee.elm

type alias Table =
    List EmployeeFromDb


lookUpEmployee : Id -> Table -> Maybe EmployeeApp
lookUpEmployee id table =
    let
        maybePerson =
            List.find (\(Employee employee _) -> employee.id == id) table

        employees =
            table
                |> List.filter (\(Employee _ employerId) -> employerId == id)
                |> List.map (\e -> replace () e)
    in
        Maybe.map (\employeeFromDb -> replace employees employeeFromDb) maybePerson