ElmVsCSharp.elm

httpDelete = httpReq "DELETE"
httpPut = httpReq "PUT"

httpReq : String -> String -> Http.Body -> Decode.Decoder a -> Http.Request a
httpReq method url body decoder =
  Http.request
    { method = method
    , headers = []
    , url = url
    , body = body
    , expect = Http.expectJson decoder
    , timeout = Nothing
    , withCredentials = False
    }


        static async Task MainAsync()
        {
            await HttpReq("GET")("http://www.example.com/")(null);
            await HttpReq("POST")("http://www.lol.com/")("body");

            var httpDelete = HttpReq("DELETE");
            var httpPut = HttpReq("PUT");

            await httpDelete("http://www.foo.com/")(null);
            await httpPut("http://www.foo.com/")("asdf");
        }

        private static Func<string, Func<string, Task<string>>> HttpReq(string method)
        {
            return Url;

            Func<string, Task<string>> Url(string url)
            {
                return Body;

                Task<string> Body(string body)
                {
                    Console.WriteLine($"{method} {url}");
                    if (body != null) Console.WriteLine($"Body: {body}");
                    Console.WriteLine();
                    return Task.FromResult("result from " + url);
                }
            }
        }