summaryrefslogtreecommitdiff
path: root/src/v1.erl
diff options
context:
space:
mode:
Diffstat (limited to 'src/v1.erl')
-rw-r--r--src/v1.erl10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/v1.erl b/src/v1.erl
index 0c13cbc..086fa35 100644
--- a/src/v1.erl
+++ b/src/v1.erl
@@ -21,13 +21,13 @@ request(post, "ct/v1/add-chain", Input) ->
Roots = catlfish:known_roots(),
case x509:normalise_chain(Roots, [LeafCert|CertChain]) of
{ok, [Leaf | Chain]} ->
- io:format("[info] adding ~p~n",
+ io:format("[info] adding ~p~n",
[x509:cert_string(LeafCert)]),
success(catlfish:add_chain(Leaf, Chain));
- {Err, Msg} ->
- io:format("[info] rejecting ~p: ~p~n",
- [x509:cert_string(LeafCert), Err]),
- html("add-chain: ", [Msg, Err])
+ {error, Reason} ->
+ io:format("[info] rejecting ~p: ~p~n",
+ [x509:cert_string(LeafCert), Reason]),
+ html("add-chain: invalid chain", Reason)
end;
Invalid ->
html("add-chain: chain is not a list: ", [Invalid])