AV
Size: a a a
AV
LO
LO
AV
AV
AV
AV
AV
MK
KV
AV
AV
= mdo
let ~(result, emails, ids) = go input resolved_emails checked_ids
resolved_emails <- searchEmails emails
checked_ids <- checkIds ids
pure result
where
go [] _ _ = ([], [], [])
go (U.UserIdOrEmail (Left e):xs) (l:ls) rs =
let ~(out, emails, ids) = go xs ls rs
in (l:out, e:emails, ids)
go (U.UserIdOrEmail (Right i):xs) ls (r:rs) =
let ~(out, emails, ids) = go xs ls rs
in (r:out, emails, i:ids)AV
AA
AA