@@ -11,23 +11,25 @@
1111module Example.Storage where
1212
1313import Control.Lens
14−import Data.Conduit.Binary
1514import Data.Text (Text)
1615import qualified Data.Text as Text
1716import Network.Google
17+import Network.Google.Env
1818import Network.Google.Storage
19+import Network.HTTP.Conduit
1920import System.IO
2021
2122example :: Text -> FilePath -> IO ()
2223example bkt f = do
23− l <- newLogger Debug stdout
24− e <- newEnv Discover ["https://accounts.google.com"] <&> envLogger .~ l
24+ l <- newLogger Debug stdout
25+ m <- newManager tlsManagerSettings
26+ e <- newEnv Discover [cloudPlatformScope] <&> envLogger .~ l
27+ b <- sourceBody f
2528
2629 let key = Text.pack f
27− src = requestBodySourceChunked (sourceFile f)
2830 obj = object' & objContentType ?~ "application/octet-stream"
2931
3032 runResourceT . runGoogle e $ do
31− _ <- upload (objectsInsert bkt obj & oiName ?~ key) src
33+ _ <- upload (objectsInsert bkt obj & oiName ?~ key) b
3234 _ <- download (objectsGet bkt key)
3335 pure ()