+
+
+
+-- | Construct a Cfg object from the command line options assuming
+-- there are no errors.
+get_cfg :: IO Cfg
+get_cfg = do
+ opts <- parse_options
+ return Cfg { heartbeat = fromJust $ opt_heartbeat opts,
+ ignore_replies = opt_ignore_replies opts,
+ ignore_retweets = opt_ignore_retweets opts,
+ from_address = opt_from opts,
+ to_address = opt_to opts,
+ verbose = opt_verbose opts }