oauthenticated 0.0.4 → 0.0.5

raw patch · 2 files changed

+2/−9 lines, 2 filesdep −http-client-tls

Dependencies removed: http-client-tls

Files

• oauthenticated.cabal +1/−2
• src/Network/OAuth/Stateful.hs +1/−7

@@ -1,5 +1,5 @@ name:                oauthenticated-version:             0.0.4+version:             0.0.5 synopsis:            Simple OAuth client code built atop http-conduit  description:         @@ -61,7 +61,6 @@                      , crypto-random                      , cryptohash                      , http-client-                     , http-client-tls                      , http-types                      , exceptions                      , mtl

@@ -25,7 +25,7 @@   oauth, sign, newParams,    -- * OAuth State-  withGen, withManager, withCred, getServer, getCredentials, createCredential+  withGen, withManager, withCred, getServer, getCredentials,     )   where@@ -115,12 +115,6 @@  getCredentials :: Monad m => OAuthT ty m (Cred ty) getCredentials = OAuthT (use credentials)--createCredential :: Monad m => Token ty' -> OAuthT ty m (Cred ty')-createCredential tok = do-  cc <- getCredentials-  let clientTok = view clientToken cc-  return $ set resourceToken (clientCred clientTok) tok  manager :: Lens (OAuthConfig ty) (OAuthConfig ty) Manager Manager manager inj (OAuthConfig m rng sv c) = (\m' -> OAuthConfig m' rng sv c) <$> inj m