module Web.Authenticate.OAuth.IO
(
module Web.Authenticate.OAuth,
getAccessToken, signOAuth,
getTemporaryCredential, getTemporaryCredentialWithScope,
getTemporaryCredentialProxy, getTemporaryCredential',
getTokenCredential,
getAccessTokenProxy, getTokenCredentialProxy,
getAccessToken', genSign
) where
import Network.HTTP.Conduit
import qualified Web.Authenticate.OAuth as OA
import Web.Authenticate.OAuth hiding
(getAccessToken, signOAuth,
getTemporaryCredential, getTemporaryCredentialWithScope,
getTemporaryCredentialProxy, getTemporaryCredential',
getTokenCredential, getTemporaryCredentialWithScope,
getAccessTokenProxy, getTemporaryCredentialProxy,
getTokenCredentialProxy, genSign,
getAccessToken', getTemporaryCredential')
import Data.Conduit
import qualified Data.ByteString.Char8 as BS
getTemporaryCredential :: ResourceIO m
=> OA.OAuth
-> m OA.Credential
getTemporaryCredential = withManager . OA.getTemporaryCredential
getTemporaryCredentialWithScope :: ResourceIO m
=> BS.ByteString
-> OAuth
-> m Credential
getTemporaryCredentialWithScope bs oa =
withManager $ OA.getTemporaryCredentialWithScope bs oa
getTemporaryCredentialProxy :: ResourceIO m
=> Maybe Proxy
-> OAuth
-> m Credential
getTemporaryCredentialProxy p oa = withManager $ OA.getTemporaryCredential' (addMaybeProxy p) oa
getTemporaryCredential' :: ResourceIO m
=> (Request m -> Request m)
-> OAuth
-> m Credential
getTemporaryCredential' hook oa = withManager $ OA.getTemporaryCredential' hook oa
getAccessToken, getTokenCredential
:: ResourceIO m
=> OAuth
-> Credential
-> m Credential
getAccessToken oa cr = withManager $ OA.getAccessToken oa cr
getAccessTokenProxy, getTokenCredentialProxy
:: ResourceIO m
=> Maybe Proxy
-> OAuth
-> Credential
-> m Credential
getAccessTokenProxy p oa cr = withManager $ OA.getAccessTokenProxy p oa cr
getAccessToken' :: ResourceIO m
=> (Request m -> Request m)
-> OAuth
-> Credential
-> m Credential
getAccessToken' hook oa cr = withManager $ OA.getAccessToken' hook oa cr
getTokenCredential = getAccessToken
getTokenCredentialProxy = getAccessTokenProxy
signOAuth :: ResourceIO m
=> OAuth
-> Credential
-> Request m
-> m (Request m)
signOAuth oa crd req = runResourceT $ OA.signOAuth oa crd req
genSign :: ResourceIO m => OAuth -> Credential -> Request m -> m BS.ByteString
genSign oa tok req = runResourceT $ OA.genSign oa tok req