No title

Anonymous Coward 2018-02-13 17:23:25.987867 UTC

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