Convert PNG to WebP

import requests

with open("input.png", "rb") as f:
    response = requests.post(
        "https://filechanger.io/api/convert",
        headers={"X-Api-Key": "fc_your_api_key_here"},
        files={"file": f},
        data={"from": "png", "to": "webp"},
    )

response.raise_for_status()
with open("output.webp", "wb") as out:
    out.write(response.content)

const formData = new FormData();
formData.append("file", fileInput.files[0]);
formData.append("from", "png");
formData.append("to", "webp");

const response = await fetch("https://filechanger.io/api/convert", {
  method: "POST",
  headers: { "X-Api-Key": "fc_your_api_key_here" },
  body: formData,
});

const output = await response.blob();

import java.net.http.HttpRequest.BodyPublishers;
import java.net.http.HttpResponse.BodyHandlers;
import java.nio.file.Path;

String boundary = "----FormBoundary" + System.currentTimeMillis();
byte[] fileBytes = java.nio.file.Files.readAllBytes(Path.of("input.png"));

String body = "--" + boundary + "\r\n"
    + "Content-Disposition: form-data; name=\"file\"; filename=\"input.png\"\r\n"
    + "Content-Type: application/octet-stream\r\n\r\n"
    + new String(fileBytes) + "\r\n"
    + "--" + boundary + "\r\nContent-Disposition: form-data; name=\"from\"\r\n\r\npng\r\n"
    + "--" + boundary + "\r\nContent-Disposition: form-data; name=\"to\"\r\n\r\nwebp\r\n"
    + "--" + boundary + "--";

HttpClient client = HttpClient.newHttpClient();
HttpRequest request = HttpRequest.newBuilder()
    .uri(URI.create("https://filechanger.io/api/convert"))
    .header("X-Api-Key", "fc_your_api_key_here")
    .header("Content-Type", "multipart/form-data; boundary=" + boundary)
    .POST(BodyPublishers.ofString(body))
    .build();

HttpResponse<byte[]> response = client.send(
    request, BodyHandlers.ofByteArray());
java.nio.file.Files.write(Path.of("output.webp"), response.body());

import Network.HTTP.Client
import Network.HTTP.Client.MultipartFormData
import qualified Data.ByteString.Lazy as BL

main :: IO ()
main = do
  manager <- newManager defaultManagerSettings
  initialReq <- parseRequest "POST https://filechanger.io/api/convert"
  let req = initialReq
        { requestHeaders = [("X-Api-Key", "fc_your_api_key_here")] }
  request <- formDataBody
    [ partFileSource "file" "input.png"
    , partBS "from" "png"
    , partBS "to" "webp"
    ] req

  response <- httpLbs request manager
  BL.writeFile "output.webp" (responseBody response)