jaredramirez / elm-s3 Goto Github PK

When I don’t set an explicit prefix using S3.withPrefix (or start the prefix with a slash), a “invisible” no-name top-level folder is created in the bucket. I think the problem is in the uploadFileTask function, assembling the key:

 key =
    interpolate "{0}/{1}"
        [ record.prefix
        , fileData.fileName
        ]

This makes total sense – except it seems that somewhere along the way another slash gets prepended to the key. This means that with an empty prefix, the key gets set to "/filename" and later to "//filename", which S3 happily inflates into a no-name folder as can be seen in the S3 Management Console. (Same thing happens if there is a prefix, but starts with a slash.)

As noted in the Discourse thread, due to Elm's Task limitation, you cannot get the tracker from a Task. Because I want to upload videos, and videos can be quite large, I want the ability to see the progress and cancel.

Currently the upload URL is constructed from the bucket name and the AWS host:

url =
    interpolate """https://{0}.{1}"""
        [ record.bucket
        , record.awsS3Host
        ]

This doesn’t work for buckets that have dots (.) in their names. According to this it should be possible to use an alternate URL format to upload:

https://s3-{region-name}.amazonaws.com/{bucket-name}

This has the advantage of working even for buckets with dots. Could we switch to this URL format?