-get_latest_status_id :: Int -> String -> IO Integer
-get_latest_status_id delay username = do
- timeline <- get_user_timeline username
- let Just initial_timeline = decode timeline :: Maybe Timeline
+get_latest_status_id :: Cfg -> String -> IO Integer
+get_latest_status_id cfg username = do
+ let delay = heartbeat cfg
+ timeline <- get_user_timeline cfg username
+
+ let decoded_timeline = decode timeline :: Maybe Timeline
+
+ when (isNothing decoded_timeline) $
+ hPutStrLn stderr $
+ "Couldn't retrieve "
+ ++ username
+ ++ "'s timeline. Skipping..."