@@ -14,16 +14,13 @@ import Control.Lens
1414import Data.Text (Text)
1515import qualified Data.Text as Text
1616import Network.Google
17−import Network.Google.Env
1817import Network.Google.Storage
19−import Network.HTTP.Conduit
2018import System.IO
2119
2220example :: Text -> FilePath -> IO ()
2321example bkt f = do
2422 l <- newLogger Debug stdout
25− m <- newManager tlsManagerSettings
26− e <- newEnv Discover [cloudPlatformScope] <&> envLogger .~ l
23+ e <- newEnv [cloudPlatformScope] <&> envLogger .~ l
2724 b <- sourceBody f
2825
2926 let key = Text.pack f