import System.IO (hPutStrLn, stderr)
import CommandLine
+import ExitCodes
import Mail
import Twitter.Http
import Twitter.Status
import Twitter.User
-exit_args_parse_failed :: Int
-exit_args_parse_failed = 1
-- The length of all calls to sleep, in seconds.
heartbeat :: Int
run_twat :: Maybe Message -> String -> IO ()
-run_twat message username = do
- latest_status_id <- get_latest_status_id username
+run_twat message username = do
+ latest_status_id <- get_latest_status_id username
recurse username latest_status_id message
return ()
-- Execute run_twat on each username in a new thread.
mapM (forkIO . (run_twat message)) usernames
-
+
forever $ do
-- This thread (the one executing main) doesn't do anything,
-- but when it terminates, so do all the threads we forked.