Implement stat callbacks

Author: tfwright

lib/supplement/storages/s3.ex

@@ -5,6 +5,24 @@ defmodule Capsule.Storages.S3 do
 
   alias ExAws.S3, as: Client
 
+  @impl Storage
+  def stat(id, opts \\ []) do
+    case Client.head_object(config(opts, :bucket), id)
+         |> ex_aws_module().request() do
+      {:ok, %{headers: headers}} ->
+        {:ok,
+         %{
+           size: Keyword.fetch!(headers, "Content-Length"),
+           updated_at: Keyword.fetch!(headers, "Last-Modified"),
+           created_at: Keyword.fetch!(headers, "Date"),
+           mime_type: Keyword.fetch!(headers, "Content-Type")
+         }}
+
+      error ->
+        handle_error(error)
+    end
+  end
+
   @impl Storage
   def put(upload, opts \\ []) do
     key = opts[:key] || Upload.name(upload)