@@ -20,7 +20,7 @@ import System.IO
20example :: Text -> FilePath -> IO ()
20example :: Text -> FilePath -> IO ()
21example bkt f = do
21example bkt f = do
22 l <- newLogger Debug stdout
22 l <- newLogger Debug stdout
23− e <- newEnv [cloudPlatformScope] <&> envLogger .~ l
23+ e <- newEnv <&> (envLogger .~ l) . allow devstorageReadWriteScope
24 b <- sourceBody f
24 b <- sourceBody f
26 let key = Text.pack f
26 let key = Text.pack f