-- fromList [("example.com",["user2","user1"]),("example.net",["user3"])]
--
construct_domain_user_map :: [DomainUser] -> DomainUserMap
-construct_domain_user_map dus =
- foldl' append_this_du Map.empty dus
+construct_domain_user_map =
+ foldl' append_this_du Map.empty
where
append_func :: Username -> (Maybe [Username]) -> (Maybe [Username])
append_func user maybe_userlist =