@@ -40,7 +40,7 @@ import qualified Network.Google.Storage as Storage
4040--example :: Text -> FilePath -> IO ()
4141example bucket input output = do
4242 -- 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
4444
4545 -- Create a new environment which will discover the appropriate
4646 -- AuthN/AuthZ credentials, and explicitly state the OAuth scopes
@@ -57,7 +57,7 @@ example bucket input output = do
5757 runResourceT . Google.runGoogle env $ do
5858 -- Upload the 'input' file contents to the specified bucket, using
5959 -- 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
6161
6262 -- Download from the bucket/key and create a source of the HTTP stream:
6363 stream <- Google.download (Storage.objectsGet bucket key)