Updating storage example to pass default scopes
commite761e211ca5bdd69bf46aa4459e9fca73aea68f6
authorBrendan Hay <brendan.g.hay@gmail.com>
dateMon 26 Oct 2015, 13:16 (11 years ago)
parent2e91828
examples/src/Example/Storage.hs+1−1
@@ -21,7 +21,7 @@ import System.IO
2121example :: Text -> FilePath -> IO ()
2222example bkt f = do
2323 l <- newLogger Debug stdout
24− e <- newEnv Discover <&> envLogger .~ l
24+ e <- newEnv Discover ["https://accounts.google.com"] <&> envLogger .~ l
2525
2626 let key = Text.pack f
2727 src = requestBodySourceChunked (sourceFile f)
gogol/src/Network/Google/Env.hs+1−1
@@ -105,7 +105,7 @@ timeout s = local (override (serviceTimeout ?~ s))
105105-- and uses 'getAuth' to expand/discover the supplied 'Credentials'.
106106-- Lenses from 'HasEnv' can be used to further configure the resulting 'Env'.
107107--
108−-- /See:/ 'newEnvWith'.
108+-- /See:/ 'newEnvWith', 'defaultScopes'.
109109newEnv :: (MonadIO m, MonadCatch m) => Credentials -> [OAuthScope] -> m Env
110110newEnv c ss = liftIO (newManager tlsManagerSettings) >>= newEnvWith c ss logger
111111 where