import Network.Curl
import System.IO (hPutStrLn, stderr)
---
+--
-- http://dev.twitter.com/doc/get/statuses/user_timeline
--
user_timeline_url :: String -> String
concat [ user_timeline_url username,
"&since_id=" ++ (show last_status_id) ]
-
+
get_user_timeline :: String -> IO (Maybe String)
get_user_timeline username = do
let uri = (user_timeline_url username)
new_statuses <- (http_get uri)
return new_statuses
-
+
http_get :: String -> IO (Maybe String)
http_get uri = withCurlDo $ do
resp <- curlGetString uri [CurlTimeout 45]