on develop help sign in
Trimming unused code
52c3fb0Brendan Hay
gogol/src/Network/Google/Auth.hs−22
@@ -384,28 +384,6 @@ emptyStore !c = liftIO . newMVar $ Exchange c
384-- FIXME: Get around to replacing the threading of Logger, Manager through
384-- FIXME: Get around to replacing the threading of Logger, Manager through
385-- every exchange/refresh call.
385-- every exchange/refresh call.
386
386
387−-- | Retrieve authentication information via the specified 'Credentials' mechanism.
388−--
389−--
390−-- Throws 'AuthError' when environment variables or service account information
391−-- cannot be read, and credentials files are invalid or cannot be found.
392−-- getAuth :: (MonadIO m, MonadCatch m)
393−-- => Credentials
394−-- -> [Scope]
395−-- -> Logger
396−-- -> Manager
397−-- -> m Auth
398−-- getAuth c ss l m = case c of
399−-- FromToken t -> pure (AuthToken t)
400−-- FromFile f -> fromFilePath ss f l m
401−-- FromAccount s -> fromMetadata s l m
402−-- Discover ->
403−-- catching _MissingFileError (fromFile ss l m) $ \f -> do
404−-- p <- isGCE m
405−-- unless p $
406−-- throwingM _MissingFileError f
407−-- fromMetadata "default" l m
408−
409-- | Attempt credentials discovery via the following steps:
387-- | Attempt credentials discovery via the following steps:
410--
388--
411-- * Read the default credentials from a file specified by
389-- * Read the default credentials from a file specified by