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


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


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


-- | get friends from screen_name