module Web.Authenticate.OAuth.IO
(
module Web.Authenticate.OAuth,
getAccessToken,
getTemporaryCredential, getTemporaryCredentialWithScope,
getTemporaryCredentialProxy, getTemporaryCredential',
getTokenCredential,
getAccessTokenProxy, getTokenCredentialProxy,
getAccessToken'
) where
import Network.HTTP.Conduit
import qualified Web.Authenticate.OAuth as OA
import Web.Authenticate.OAuth hiding
(getAccessToken,
getTemporaryCredential, getTemporaryCredentialWithScope,
getTemporaryCredentialProxy, getTemporaryCredential',
getTokenCredential, getTemporaryCredentialWithScope,
getAccessTokenProxy, getTemporaryCredentialProxy,
getTokenCredentialProxy,
getAccessToken', getTemporaryCredential')
import Data.Conduit
import Control.Monad.IO.Class
import qualified Data.ByteString.Char8 as BS
getTemporaryCredential :: MonadIO m
=> OA.OAuth
-> m OA.Credential
getTemporaryCredential = liftIO . withManager . OA.getTemporaryCredential
getTemporaryCredentialWithScope :: MonadIO m
=> BS.ByteString
-> OAuth
-> m Credential
getTemporaryCredentialWithScope bs oa =
liftIO $ withManager $ OA.getTemporaryCredentialWithScope bs oa
getTemporaryCredentialProxy :: MonadIO m
=> Maybe Proxy
-> OAuth
-> m Credential
getTemporaryCredentialProxy p oa = liftIO $ withManager $ OA.getTemporaryCredential' (addMaybeProxy p) oa
getTemporaryCredential' :: MonadIO m
=> (Request (ResourceT IO) -> Request (ResourceT IO))
-> OAuth
-> m Credential
getTemporaryCredential' hook oa = liftIO $ withManager $ OA.getTemporaryCredential' hook oa
getAccessToken, getTokenCredential
:: MonadIO m
=> OAuth
-> Credential
-> m Credential
getAccessToken oa cr = liftIO $ withManager $ OA.getAccessToken oa cr
getAccessTokenProxy, getTokenCredentialProxy
:: MonadIO m
=> Maybe Proxy
-> OAuth
-> Credential
-> m Credential
getAccessTokenProxy p oa cr = liftIO $ withManager $ OA.getAccessTokenProxy p oa cr
getAccessToken' :: MonadIO m
=> (Request (ResourceT IO) -> Request (ResourceT IO))
-> OAuth
-> Credential
-> m Credential
getAccessToken' hook oa cr = liftIO $ withManager $ OA.getAccessToken' hook oa cr
getTokenCredential = getAccessToken
getTokenCredentialProxy = getAccessTokenProxy