From 16520e4f8e9ac02d213455f213fe84ed0a705448 Mon Sep 17 00:00:00 2001 From: Linus Nordberg Date: Wed, 8 Apr 2015 17:31:58 +0200 Subject: Keep lines short. --- src/plop_httputil.erl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'src/plop_httputil.erl') diff --git a/src/plop_httputil.erl b/src/plop_httputil.erl index 3b1c104..10a887b 100644 --- a/src/plop_httputil.erl +++ b/src/plop_httputil.erl @@ -25,7 +25,8 @@ get_cert_hostname(Cert) -> TBSCert = Cert#'OTPCertificate'.tbsCertificate, Subject = TBSCert#'OTPTBSCertificate'.subject, {rdnSequence, RDNs} = Subject, - CNs = lists:map(fun([#'AttributeTypeAndValue'{type=?'id-at-commonName', value=Value}]) -> + CNs = lists:map(fun([#'AttributeTypeAndValue'{type=?'id-at-commonName', + value=Value}]) -> Value; (_) -> none @@ -51,7 +52,8 @@ verify_fun(Cert, valid_peer, UserState) -> {check_hostname, CertHostname} -> {valid, UserState}; {check_hostname, ExpectedHostname} -> - lager:info("Expected hostname ~p but certificate has hostname ~p", [ExpectedHostname, CertHostname]), + lager:info("Expected hostname ~p but certificate has hostname ~p", + [ExpectedHostname, CertHostname]), {fail, "Hostname does not match"}; false -> {valid, UserState} @@ -67,7 +69,8 @@ request(DebugTag, URL, Headers, RequestBody) -> case hackney:connect(ParsedURL, [{ssl_options, [{cacertfile, CACertFile}, {verify, verify_peer}, - {verify_fun, {fun verify_fun/3, [{check_hostname, Host}]}} + {verify_fun, {fun verify_fun/3, + [{check_hostname, Host}]}} ]}]) of {ok, ConnRef} -> lager:debug("~s: connected to ~p", -- cgit v1.1