- concat [ user_timeline_url username,
- "&since_id=" ++ (show last_status_id) ]
+ concat [ user_timeline_url username,
+ "&since_id=" ++ (show last_status_id) ]
+
+
+get_status :: Cfg -> Integer -> IO B.ByteString
+get_status cfg status_id = do
+ let uri = status_url status_id
+ http_get cfg uri
+
+
+-- | Return's username's timeline.
+get_user_timeline :: Cfg -> String -> IO B.ByteString
+get_user_timeline cfg username = do
+ let uri = user_timeline_url username
+ http_get cfg uri
+