+ -- Use only the latter usernames if there are any.
+ all_usernames = if (null (usernames cfg2))
+ then (usernames cfg1)
+ else (usernames 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
+