No title

1
2
3
4
5
6
7
createBucketEx :: IO CreateBucketResponse
createBucketEx = do
    lgr  <- newLogger Info stdout
    env <- newEnv Discover
    runResourceT $ runAWS (env & envLogger .~ lgr) $
        within London $
            send $ createBucket "testBucket"