default_headers,
print_sendmail_result,
rfc822_now,
- sendmail
- )
+ sendmail)
import Twitter.Http
import Twitter.Status
import Twitter.User
tz <- getCurrentTimeZone
let mtz = Just tz
- mapM_ (putStrLn . (pretty_print mtz)) good_statuses
+ mapM_ (putStr . (pretty_print mtz)) good_statuses
send_messages cfg mtz maybe_message good_statuses
main = do
-- And a Cfg object.
rc_cfg <- OC.from_rc
- cmd_cfg <- apply_args
+ cmd_cfg <- get_args
-- Merge the config file options with the command-line ones,
-- prefering the command-line ones.