followScreenName :: Token
                 -> String -- ^ screen name to follow
                 -> IO (Result TwitterUser)
followScreenName tok sname = do
    ret <- callAPI POST tok "friendships/create" [("screen_name", sname), ("follow", "true")]
    return $ ret >>= decodeUser


-- | unfollow screen_name
followScreenName :: Token
                 -> String -- ^ screen name to follow
                 -> IO (Result TwitterUser)
followScreenName tok sname = do
    ret <- callAPI POST tok "friendships/create" [("screen_name", sname), ("follow", "true")]
    return $ ret >>= decodeUser


-- | unfollow screen_name
followScreenName tok sname = do
    ret <- callAPI POST tok "friendships/create" [("screen_name", sname), ("follow", "true")]
    return $ ret >>= decodeUser


-- | unfollow screen_name