get_status :: Integer -> IO B.ByteString
get_status status_id = do
- let uri = (status_url status_id)
- status <- (http_get uri)
- return status
+ let uri = status_url status_id
+ http_get uri
-- | Return's username's timeline.
get_user_timeline :: String -> IO B.ByteString
get_user_timeline username = do
- let uri = (user_timeline_url username)
- timeline <- (http_get uri)
- return timeline
+ let uri = user_timeline_url username
+ http_get uri
-- | Returns the JSON representing all of username's statuses that are
-- newer than last_status_id.
get_user_new_statuses :: String -> Integer -> IO B.ByteString
get_user_new_statuses username last_status_id = do
- let uri = (user_new_statuses_url username last_status_id)
- new_statuses <- (http_get uri)
- return new_statuses
+ let uri = user_new_statuses_url username last_status_id
+ http_get uri
-- | Retrieve a URL, or crash.