antiope-s3-6.1.5: src/Antiope/S3/Request.hs

{-# LANGUAGE DataKinds        #-}
{-# LANGUAGE TypeApplications #-}

module Antiope.S3.Request
  ( getObjectUri
  ) where

import Antiope.S3.Types          (S3Uri)
import Control.Lens
import Data.Generics.Product.Any

import qualified Network.AWS.S3 as AWS

getObjectUri :: S3Uri -> AWS.GetObject
getObjectUri uri = AWS.getObject bucket objectKey
  where bucket    = uri ^. the @"bucket"
        objectKey = uri ^. the @"objectKey"