+ -- Use only the latter usernames if there are any.
+ all_usernames =
+ usernames $ if (null (usernames cfg2))
+ then cfg1
+ else cfg2
+
+instance DCT.Configured [String] where
+ convert (DCT.List xs) =
+ mapM convert_string xs
+ where
+ convert_string :: DCT.Value -> Maybe String
+ convert_string = DCT.convert
+
+ convert _ = Nothing
+