From 857c1bdc7e8b2a481fc8dce7707fff69b64d2733 Mon Sep 17 00:00:00 2001
From: Lyle Mantooth <lyle.mantooth@primasupply.com>
Date: Mon, 11 Jun 2018 14:36:37 -0400
Subject: [PATCH] Allow retrieving WSDL files over HTTPS.

---
 src/soap_parse_wsdl.erl | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/src/soap_parse_wsdl.erl b/src/soap_parse_wsdl.erl
index 4598a58..fa11d1c 100644
--- a/src/soap_parse_wsdl.erl
+++ b/src/soap_parse_wsdl.erl
@@ -606,14 +606,9 @@ namespace_decl({Uri, Prefix}) ->
 %% Get a file from an URL spec.
 %% ---------------------------------------------------------------------------
 get_url_file("http://"++_ = URL) ->
-    case httpc:request(URL) of
-        {ok,{{_HTTP,200,_OK}, _Headers, Body}} ->
-            {ok, Body};
-        {ok,{{_HTTP, _RC, _Emsg}, _Headers, _Body}} ->
-            {error, "failed to retrieve: "++URL};
-        {error, _Reason} ->
-            {error, "failed to retrieve: "++URL}
-        end;
+    get_http_file(URL);
+get_url_file("https://"++_ = URL) ->
+    get_http_file(URL);
 get_url_file("file://" ++ F_name) ->
     case file:read_file(F_name) of
         {ok, Bin} ->
@@ -623,3 +618,13 @@ get_url_file("file://" ++ F_name) ->
     end;
 get_url_file(F_name) ->
     get_url_file("file://" ++ F_name).
+
+get_http_file(URL) ->
+    case httpc:request(URL) of
+        {ok,{{_HTTP,200,_OK}, _Headers, Body}} ->
+            {ok, Body};
+        {ok,{{_HTTP, _RC, _Emsg}, _Headers, _Body}} ->
+            {error, "failed to retrieve: "++URL};
+        {error, _Reason} ->
+            {error, "failed to retrieve: "++URL}
+        end.