@@ -40,7 +40,7 @@ import qualified Network.Google.Storage as Storage
40--example :: Text -> FilePath -> IO ()
40--example :: Text -> FilePath -> IO ()
41example bucket input output = do
41example bucket input output = do
42 -- Setup a logger to emit 'Debug' (or higher) log statements to 'stdout':
42 -- Setup a logger to emit 'Debug' (or higher) log statements to 'stdout':
43− lgr <- Google.newLogger Debug stdout
43+ lgr <- Google.newLogger Google.Debug stdout
45 -- Create a new environment which will discover the appropriate
45 -- Create a new environment which will discover the appropriate
46 -- AuthN/AuthZ credentials, and explicitly state the OAuth scopes
46 -- AuthN/AuthZ credentials, and explicitly state the OAuth scopes
@@ -57,7 +57,7 @@ example bucket input output = do
57 runResourceT . Google.runGoogle env $ do
57 runResourceT . Google.runGoogle env $ do
58 -- Upload the 'input' file contents to the specified bucket, using
58 -- Upload the 'input' file contents to the specified bucket, using
59 -- the file path as the key:
59 -- the file path as the key:
60− _ <- Google.upload (Storage.objectsInsert bucket object' & Storage.oiName ?~ key) body
60+ _ <- Google.upload (Storage.objectsInsert bucket Storage.object' & Storage.oiName ?~ key) body
62 -- Download from the bucket/key and create a source of the HTTP stream:
62 -- Download from the bucket/key and create a source of the HTTP stream:
63 stream <- Google.download (Storage.objectsGet bucket key)
63 stream <- Google.download (Storage.objectsGet bucket key)