unFollowScreenName :: Token
                   -> String -- ^ screen name to unfollow
                   -> IO (Result ())
unFollowScreenName tok sname = do
    -- XXX: is friendships/destroy return valid JSON string?
    ret <- callAPI POST tok "friendships/destroy" [("screen_name", sname)]
    return $ (const ()) <$> ret


-- | retweet status
unFollowScreenName :: Token
                   -> String -- ^ screen name to unfollow
                   -> IO (Result ())
unFollowScreenName tok sname = do
    -- XXX: is friendships/destroy return valid JSON string?
    ret <- callAPI POST tok "friendships/destroy" [("screen_name", sname)]
    return $ (const ()) <$> ret


-- | retweet status
unFollowScreenName tok sname = do
    -- XXX: is friendships/destroy return valid JSON string?
    ret <- callAPI POST tok "friendships/destroy" [("screen_name", sname)]
    return $ (const ()) <$> ret


-- | retweet status