password :: Maybe String,
username :: Maybe String }
-
instance Monoid Cfg where
mempty = Cfg { article = "",
cookie_jar = Nothing,
get_cfg :: IO Cfg
get_cfg = do
cmd_article <- Cmd.apply_args
- let arg_cfg = mempty { article = Cmd.article cmd_article,
- output = Cmd.output cmd_article }
+ let arg_cfg = mempty { article = Cmd.article cmd_article,
+ full_stories = Cmd.full_stories cmd_article,
+ output = Cmd.output cmd_article }
either_file_cfg <- parse_config
case either_file_cfg of