- concat [ user_timeline_url username,
- "&since_id=" ++ (show last_status_id) ]
+ url ++ "&since_id=" ++ since_id
+ where
+ url = user_timeline_url username
+ since_id = show last_status_id
+
+
+-- | 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
+