Correcting dummy storage example
commitf4a773704a51d84cafbe2ebedf2e64bc7c4e9a22
authorBrendan Hay <brendan.g.hay@gmail.com>
dateFri 23 Oct 2015, 21:00 (11 years ago)
parent5440de1
examples/src/Example/Storage.hs+1−1
@@ -29,5 +29,5 @@ example bkt f = do
2929
3030 runResourceT . runGoogle e $ do
3131 _ <- upload (objectsInsert bkt obj & oiName ?~ key) src
32− _ <- download (objectsInsert bkt obj & oiName ?~ key)
32+ _ <- download (objectsGet bkt key)
3333 pure ()