Adding scope authorization to storage example
commit687fc89f6af606a1524ffaab77fcccba3d121f80
authorBrendan Hay <brendan.g.hay@gmail.com>
dateSat 31 Oct 2015, 15:48 (11 years ago)
parent3a1fa99
examples/src/Example/Storage.hs+1−1
@@ -20,7 +20,7 @@ import System.IO
2020example :: Text -> FilePath -> IO ()
2121example bkt f = do
2222 l <- newLogger Debug stdout
23− e <- newEnv [cloudPlatformScope] <&> envLogger .~ l
23+ e <- newEnv <&> (envLogger .~ l) . allow devstorageReadWriteScope
2424 b <- sourceBody f
2525
2626 let key = Text.pack f