如何使用Amazonka获取签名的put对象url

Question

我试图得到一个预签名的网址把一个对象到我的s3桶。我知道桶配置很好，因为我已经在节点上使用过很多次了，没有任何问题。我目前正试图将我的上传endpoint转换为haskellendpoint作为个人项目。

我已经尝试使用amazonka来egt这个，但是我一直从AWS收到错误消息，我还没有找到一个关于如何实现这一点的好教程。我收到的错误消息如下：

您试图访问的存储桶必须使用指定的endpoint寻址。请将所有未来请求发送到此终结点。

我收到一个包含以下内容的url：https://s3.amazonaws.com/（我的桶名）

所以我把它改成这样：https：//（my-bake-name）。s3.us-east-2.amazonaws.com在修复了上面问题的前缀后，我得到了以下结果：

解析X-Amz-Credential参数时出错；“美国东部1号”地区是错误的；期待“美国东部2号”

但是，我正在设置密钥、访问密钥和存储桶。

以下是一个可复制的示例：

module Lib
    ( main
    ) where

import ClassyPrelude
import           Network.AWS.S3
import           Network.AWS.S3.PutObject
import           Control.Monad.Trans.AWS
import           Network.AWS.Data
import           Control.Lens

bNameE :: BucketName
bNameE = BucketName <my-bucket-name>

oKeyE :: ObjectKey
oKeyE = ObjectKey ("101/12345-12345-12345-12345.jpg")
-- oKeyE = ObjectKey "photo-106399.jpeg"

sKeyE :: Text
sKeyE = <my-bucket-secret>

aKeyE :: Text
aKeyE = <my-bucket-public>

main :: IO ()
main = do
  r <- getPresignedURL Ohio bNameE oKeyE
  print r

getPresignedURL :: Region
                -> BucketName
                -> ObjectKey
                -> IO ByteString
getPresignedURL r b k = do
    lgr <- newLogger Trace stdout
    env <- newEnv $ FromKeys (AccessKey $ encodeUtf8 $ aKeyE) (SecretKey $ encodeUtf8 $ sKeyE)
    ts  <- getCurrentTime
    let p = (putObject b k "") -- & poContentType .~ (Just "Content-Type=image/jpeg")
    print p
    runResourceT . runAWST env $
        presignURL ts 900 p --(poContentType (Lens'  (Just "Content-Type=jpeg")))

Answer 1

问题的原因是没有在Env变量内设置区域，您可以使用以下内容生成签名URL：

getPresignedURL :: Region
                -> BucketName
                -> ObjectKey
                -> IO ByteString
getPresignedURL r b k = do
    lgr <- newLogger Trace stdout
    env <- newEnv $ FromKeys (AccessKey $ encodeUtf8 $ aKeyE) (SecretKey $ encodeUtf8 $ sKeyE)
    let nEnv = env & envRegion .~ r
    ts  <- getCurrentTime 
    runResourceT . runAWST nEnv $ presignURL ts 900 (putObject b k "Content-Type=image/jpeg")

我对镜头不是很熟悉，所以我相信有一种更简洁的方法可以做到以下几点：

    env <- newEnv $ FromKeys (AccessKey $ encodeUtf8 $ aKeyE) (SecretKey $ encodeUtf8 $ sKeyE)
    let nEnv = env & envRegion .~ r