Removing use of unimported function
commit9882f314219afe2f81d9dfc6d74ad35f8d972526
authorBrendan Hay <brendan.g.hay@gmail.com>
dateSun 26 Feb 2017, 08:44 (10 years ago)
parente937464
examples/src/Example/Storage.hs+1−3
@@ -57,9 +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− void $ Google.upload
61− (Storage.objectsInsert bucket object' & Storage.oiName ?~ key)
62− body
60+ _ <- Google.upload (Storage.objectsInsert bucket object' & Storage.oiName ?~ key) body
6361
6462 -- Download from the bucket/key and create a source of the HTTP stream:
6563 stream <- Google.download (Storage.objectsGet bucket key)