-- Hoogle documentation, generated by Haddock
-- See Hoogle, http://www.haskell.org/hoogle/


-- | hoauth2
--   
--   Haskell OAuth2 authentication.
--   
--   Tested following services
--   
--   <ul>
--   <li>google web oauth:
--   <a>https://developers.google.com/accounts/docs/OAuth2WebServer</a></li>
--   <li>weibo oauth2: <a>http://open.weibo.com/wiki/Oauth2</a></li>
--   </ul>
@package hoauth2
@version 0.2.0

module Network.OAuth2.OAuth2

-- | Query Parameter Representation
data OAuth2
OAuth2 :: ByteString -> ByteString -> ByteString -> ByteString -> Maybe ByteString -> Maybe ByteString -> OAuth2
oauthClientId :: OAuth2 -> ByteString
oauthClientSecret :: OAuth2 -> ByteString
oauthOAuthorizeEndpoint :: OAuth2 -> ByteString
oauthAccessTokenEndpoint :: OAuth2 -> ByteString
oauthCallback :: OAuth2 -> Maybe ByteString
oauthAccessToken :: OAuth2 -> Maybe ByteString

-- | The gained Access Token. Use <tt>Data.Aeson.decode</tt> to decode
--   string to <tt>AccessToken</tt>.
data AccessToken
AccessToken :: ByteString -> AccessToken
accessToken :: AccessToken -> ByteString

-- | Simple Exception representation.
data OAuthException
OAuthException :: String -> OAuthException

-- | Prepare the authorization URL. Redirect to this URL asking for user
--   interactive authentication.
authorizationUrl :: OAuth2 -> URI

-- | Prepare access token URL and the request body query.
accessTokenUrl :: OAuth2 -> ByteString -> (URI, PostBody)
instance Typeable OAuthException
instance Show OAuth2
instance Eq OAuth2
instance Show OAuthException
instance Eq OAuthException
instance Show AccessToken
instance FromJSON AccessToken
instance Exception OAuthException

module Network.OAuth2.HTTP.HttpClient

-- | Request (POST method) access token URL in order to get
--   <tt>AccessToken</tt>. FIXME: what if <tt>requestAccessToken'</tt>
--   return error?
requestAccessToken :: OAuth2 -> ByteString -> IO (Maybe AccessToken)

-- | Performance a http <tt>Request</tt>
doRequest :: ResourceIO m => Request m -> m (Response ByteString)

-- | insert access token into the request
signRequest :: OAuth2 -> Request m -> Request m