List objects in bucket via amazonks

Main.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import           Control.Lens
import           Network.AWS
import           Network.AWS.S3

main :: IO ()
main = do
    e <- newEnv Discover <&> set envRegion Sydney
    ex <- runResourceT . runAWS e $ send $ listObjects $ BucketName "BUCKET_NAME"
    print [ (x ^. oKey, x ^. oETag) | x <- ex ^. lorsContents ]