-- | get home timeline
getHomeTimeline :: Token
                -> Maybe Integer -- ^ Returns results with an ID greater than this ID
                -> IO (Result Timeline)
getHomeTimeline tok mLastId = do
    let query = ("count", "20") : ("include_entities", "1") : (maybeToList $ (("since_id", ) . show) <$> mLastId)
    json <- callAPI GET tok "statuses/home_timeline" query
    return $ json >>= decodeTimeline


-- | get home mentions
getHomeTimeline :: Token
                -> Maybe Integer -- ^ Returns results with an ID greater than this ID
                -> IO (Result Timeline)
getHomeTimeline tok mLastId = do
    let query = ("count", "20") : ("include_entities", "1") : (maybeToList $ (("since_id", ) . show) <$> mLastId)
    json <- callAPI GET tok "statuses/home_timeline" query
    return $ json >>= decodeTimeline


-- | get home mentions
getHomeTimeline tok mLastId = do
    let query = ("count", "20") : ("include_entities", "1") : (maybeToList $ (("since_id", ) . show) <$> mLastId)
    json <- callAPI GET tok "statuses/home_timeline" query
    return $ json >>= decodeTimeline


-- | get home mentions