 
   def drop_working_copy(%Write{} = w, fourfour) do
     operation = %DropWorkingCopy{fourfour: fourfour}
+    %{ w | operations: [operation | w.operations] }
+  end
+
+  def delete_approvals_submissions(%Write{} = w, fourfour, revision_id) do
+    operation = %DeleteApprovalsSubmissions{fourfour: fourfour, catalog_revision_id: "#{fourfour}:#{revision_id}"}
     %{ w | operations: [operation | w.operations] }
   end
 

    defstruct fourfour: nil
  end

  defmodule CreateView do
    defstruct name: nil,
    properties: %{}


  defp do_run(%DropWorkingCopy{fourfour: fourfour}, w) do
    Http.delete("/views/#{Http.encode(fourfour)}", w)
  end

  defp do_run(%DeleteApprovalsSubmissions{} = das, w) do
    Http.delete("/views/#{Http.encode(das.fourfour)}/approvals/#{Http.encode(das.catalog_revision_id)}?method=deleteExternalAssetSubmissions", w)
  end

  defp do_run(%Upsert{rows: rows} = u, w) when is_list(rows) do
