(merge' (from_address cfg) (OC.from_address opt_cfg))
(merge' (to_address cfg) (OC.to_address opt_cfg))
(merge (verbose cfg) (OC.verbose opt_cfg))
- ((usernames cfg) ++ (OC.usernames opt_cfg))
+ all_usernames
where
merge :: a -> Maybe a -> a
merge x Nothing = x
merge' (Just x) Nothing = Just x
merge' Nothing (Just x) = Just x
merge' (Just _) (Just y) = Just y
+
+ -- If there are any optional usernames, use only those.
+ all_usernames = if (null (OC.usernames opt_cfg))
+ then (usernames cfg)
+ else (OC.usernames opt_cfg)