From 1aeb27718633b89b08e557699bbea5948a6e94ff Mon Sep 17 00:00:00 2001
From: Francesco Lattanzio <franz.lattanzio@gmail.com>
Date: Mon, 26 Jun 2017 19:04:28 +0200
Subject: [PATCH] Make use of the namespaces mapping

Despite being asked for to the user they are not used when generating
records' and types' names.
---
 src/soap_parse_wsdl.erl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/soap_parse_wsdl.erl b/src/soap_parse_wsdl.erl
index 4598a58..f29881e 100644
--- a/src/soap_parse_wsdl.erl
+++ b/src/soap_parse_wsdl.erl
@@ -202,6 +202,7 @@ add_schemas([Xsd| Tail], AccModel, Options, ImportList, Imported) ->
     Include_any_attribs = 
         proplists:get_value(include_any_attribs, Options, false),
     ErlsomOptions = proplists:get_value(erlsom_options, Options, []),
+    Namespace_options = proplists:get_value(namespaces, Options, []),
     Tns = erlsom_lib:getTargetNamespaceFromXsd(Xsd),    
     Prefix = 
         case lists:keyfind(Tns, 1, ImportList) of
@@ -212,7 +213,8 @@ add_schemas([Xsd| Tail], AccModel, Options, ImportList, Imported) ->
         end,
     {ok, Model} =
          erlsom_compile:compile_parsed_xsd(Xsd,
-            [{include_files, ImportList}, 
+            [{namespaces, Namespace_options},
+             {include_files, ImportList},
              {already_imported, Imported}, 
              {include_any_attribs, Include_any_attribs},
              {prefix, Prefix} | ErlsomOptions]),