diff options
| -rw-r--r-- | src/catlfish_sup.erl | 35 |
1 files changed, 19 insertions, 16 deletions
diff --git a/src/catlfish_sup.erl b/src/catlfish_sup.erl index 143e601..abdac44 100644 --- a/src/catlfish_sup.erl +++ b/src/catlfish_sup.erl @@ -10,22 +10,25 @@ start_link(_Args) -> supervisor:start_link({local, ?MODULE}, ?MODULE, []). init([]) -> - SSLOptions = [{certfile, application:get_env(catlfish, https_certfile, none)}, - {keyfile, application:get_env(catlfish, https_keyfile, none)}, - {cacertfile, application:get_env(catlfish, https_cacertfile, none)}], - Servers = lists:map(fun (Config) -> - {IpAddress, Port, Module} = Config, - {ok, IPv4Address} = inet:parse_ipv4strict_address(IpAddress), - WebConfig = [{ip, IPv4Address}, - {port, Port}, - {ssl, true}, - {ssl_opts, SSLOptions} - ], - {catlfish_web, - {catlfish_web, start, [WebConfig, Module]}, - permanent, 5000, - worker, dynamic} - end, application:get_env(catlfish, https_servers, [])), + SSLOptions = + [{certfile, application:get_env(catlfish, https_certfile, none)}, + {keyfile, application:get_env(catlfish, https_keyfile, none)}, + {cacertfile, application:get_env(catlfish, https_cacertfile, none)}], + Servers = + lists:map(fun (Config) -> + {IpAddress, Port, Module} = Config, + {ok, IPv4Address} = + inet:parse_ipv4strict_address(IpAddress), + WebConfig = [{ip, IPv4Address}, + {port, Port}, + {ssl, true}, + {ssl_opts, SSLOptions} + ], + {catlfish_web, + {catlfish_web, start, [WebConfig, Module]}, + permanent, 5000, + worker, dynamic} + end, application:get_env(catlfish, https_servers, [])), {ok, {{one_for_one, 3, 10}, Servers}}. |