-- fromList [("example.com",["user2","user1"]),("example.net",["user3"])]
--
construct_domain_user_map :: [DomainUser] -> DomainUserMap
-- fromList [("example.com",["user2","user1"]),("example.net",["user3"])]
--
construct_domain_user_map :: [DomainUser] -> DomainUserMap
where
append_func :: Username -> (Maybe [Username]) -> (Maybe [Username])
append_func user maybe_userlist =
where
append_func :: Username -> (Maybe [Username]) -> (Maybe [Username])
append_func user maybe_userlist =