module Text.Yahoo.RelatedSuggestion (relatedSuggest) where

import Text.Yahoo.InternalRS (fromYahooRS)

import Text.Yahoo.Types

-- | Perform a Related Suggestion query
relatedSuggest :: RSQuery -> IO (Either Error RSResultSet)
relatedSuggest = fromYahooRS True