From 3a7d5d3a054db841f81bf193745db48e9f9d05c9 Mon Sep 17 00:00:00 2001 From: Hiromi Ishii Date: Fri, 3 Feb 2012 18:29:08 +0900 Subject: [PATCH] Modified expose list. --- authenticate-oauth/.gitignore | 4 ++++ authenticate-oauth/Web/Authenticate/OAuth.hs | 23 ++++++++++---------- authenticate-oauth/authenticate-oauth.cabal | 2 +- 3 files changed, 16 insertions(+), 13 deletions(-) create mode 100644 authenticate-oauth/.gitignore diff --git a/authenticate-oauth/.gitignore b/authenticate-oauth/.gitignore new file mode 100644 index 00000000..a2715c36 --- /dev/null +++ b/authenticate-oauth/.gitignore @@ -0,0 +1,4 @@ +.DS_Store +*.hi +*.o +dist \ No newline at end of file diff --git a/authenticate-oauth/Web/Authenticate/OAuth.hs b/authenticate-oauth/Web/Authenticate/OAuth.hs index d18c5fa3..a44f00a8 100644 --- a/authenticate-oauth/Web/Authenticate/OAuth.hs +++ b/authenticate-oauth/Web/Authenticate/OAuth.hs @@ -2,10 +2,10 @@ {-# OPTIONS_GHC -Wall -fno-warn-orphans #-} module Web.Authenticate.OAuth ( -- * Data types - OAuth(oauthServerName, oauthRequestUri, oauthAccessTokenUri, oauthAuthorizeUri, - oauthSignatureMethod, oauthConsumerKey, oauthConsumerSecret, oauthCallback, - oauthRealm), - def, newOAuth, SignMethod(..), Credential(..), OAuthException(..), + OAuth, def, newOAuth, oauthServerName, oauthRequestUri, oauthAccessTokenUri, + oauthAuthorizeUri, oauthSignatureMethod, oauthConsumerKey, + oauthConsumerSecret, oauthCallback, oauthRealm, + SignMethod(..), Credential(..), OAuthException(..), -- * Operations for credentials newCredential, emptyCredential, insert, delete, inserts, -- * Signature @@ -53,19 +53,18 @@ import Data.Default -- Instead, you should use the 'def' method or 'newOAuth' function to retrieve a default instance, -- and then use the records below to make modifications. -- This approach allows us to add configuration options without breaking backwards compatibility. -data OAuth = OAuth { oauthServerName :: String - -- ^ Service name (default: @""@) +data OAuth = OAuth { oauthServerName :: String -- ^ Service name (default: @\"\"@) , oauthRequestUri :: String - -- ^ URI to request temporary credential (default: @""@). - -- You MUST specify if you use 'getTemporaryCredential\'', 'getTemporaryCredentialProxy' + -- ^ URI to request temporary credential (default: @\"\"@). + -- You MUST specify if you use 'getTemporaryCredential'', 'getTemporaryCredentialProxy' -- or 'getTemporaryCredential'; otherwise you can just leave this empty. , oauthAccessTokenUri :: String - -- ^ Uri to obtain access token (default: @""@). - -- You MUST specify if you use 'getAcessToken' or 'getAccessToken\''; + -- ^ Uri to obtain access token (default: @\"\"@). + -- You MUST specify if you use 'getAcessToken' or 'getAccessToken''; -- otherwise you can just leave this empty. , oauthAuthorizeUri :: String - -- ^ Uri to authorize (default: @""@). - -- You MUST specify if you use 'authorizeUrl' or 'authorizeUrl\''; + -- ^ Uri to authorize (default: @\"\"@). + -- You MUST specify if you use 'authorizeUrl' or 'authorizeUrl''; -- otherwise you can just leave this empty. , oauthSignatureMethod :: SignMethod -- ^ Signature Method (default: 'HMACSHA1') diff --git a/authenticate-oauth/authenticate-oauth.cabal b/authenticate-oauth/authenticate-oauth.cabal index 188b86f0..d96162b6 100644 --- a/authenticate-oauth/authenticate-oauth.cabal +++ b/authenticate-oauth/authenticate-oauth.cabal @@ -1,5 +1,5 @@ name: authenticate-oauth -version: 1.0.0 +version: 1.0.0.1 license: BSD3 license-file: LICENSE author: Hiromi Ishii