bgamari / pipes-s3 Goto Github PK

*Main> Just creds <- Aws.loadCredentialsFromEnv
*Main> let cfg = Aws.Configuration Aws.Timestamp creds (Aws.defaultLog Aws.Error)
*Main> httpmgr <- newManager tlsManagerSettings
*Main> let file ="out"
*Main>   inhandle <- openFile file ReadMode
*Main>   lenb <- System.IO.withFile file ReadMode hFileSize
*Main>   let inbytes = P.fromHandle inhandle :: Producer' P.ByteString IO ()
*Main>  PS3.toS3WithManager httpmgr cfg (1024*1024*8) "indalytics-dev" "testbucket/pre/test" inbytes
*** Exception: S3Error {s3StatusCode = Status {statusCode = 400, statusMessage = "Bad Request"}, s3ErrorCode = "MalformedXML", s3ErrorMessage = "The XML you provided was not well-formed or did not validate against our published schema", s3ErrorResource = Nothing, s3ErrorHostId = Just "vmngyN2a1LYkY7a/1+Ha/DLdK5iaN8F5CTed36o3/MSImUoWUbvKoAjzOqSnEH0ivKPQtmEXs8g=", s3ErrorAccessKeyId = Nothing, s3ErrorStringToSign = Nothing, s3ErrorBucket = Nothing, s3ErrorEndpointRaw = Nothing, s3ErrorEndpoint = Nothing}

 Just creds <- Aws.loadCredentialsFromEnv
  let cfg = Aws.Configuration Aws.Timestamp creds (Aws.defaultLog Aws.Error)
  let s3cfg = S3.s3 Aws.HTTP S3.s3EndpointUsClassic False
  {- Set up a ResourceT region with an available HTTP manager. -}
  httpmgr <- newManager tlsManagerSettings
  req <- async $ runResourceT $ do
    Aws.pureAws cfg s3cfg httpmgr $ {...request body here}