where
import qualified OptionalConfiguration as OC
+import Usernames
data Cfg =
Cfg { consumer_key :: String,
from_address :: Maybe String,
to_address :: Maybe String,
verbose :: Bool,
- usernames :: [String] }
+ usernames :: Usernames }
deriving (Show)
from_address = Nothing,
to_address = Nothing,
verbose = False,
- usernames = [] }
+ usernames = Usernames [] }
merge_optional :: Cfg -> OC.OptionalCfg -> Cfg
merge_optional cfg opt_cfg =
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)
+ all_usernames = if (null (get_usernames (OC.usernames opt_cfg)))
+ then (usernames cfg)
+ else (OC.usernames opt_cfg)