From 12715ccde9c3e3006019f940c8bfdb1ebd4476ff Mon Sep 17 00:00:00 2001 From: Linus Nordberg Date: Mon, 15 Sep 2014 12:36:52 +0200 Subject: Don't try to JSON-encode error messages. --- src/v1.erl | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'src/v1.erl') diff --git a/src/v1.erl b/src/v1.erl index b3c83d9..b757475 100644 --- a/src/v1.erl +++ b/src/v1.erl @@ -56,14 +56,17 @@ {First, _} = string:to_integer(FirstInput), {Second, _} = string:to_integer(SecondInput), case lists:member(error, [First, Second]) of - true -> html("get-sth-consistency: bad input:", - [First, Second]); - _ -> [base64:encode(X) || - X <- plop:consistency(First, Second)] + true -> + html("get-sth-consistency: bad input:", [First, Second]); + _ -> + binary_to_list( + jiffy:encode( + [base64:encode(X) || + X <- plop:consistency(First, Second)])) end; _ -> html("get-sth-consistency: bad input:", Input) end, - deliver(SessionID, binary_to_list(jiffy:encode(R))). + deliver(SessionID, (R)). 'get-proof-by-hash'(SessionID, _Env, _Input) -> niy(SessionID). 'get-entries'(SessionID, _Env, Input) -> -- cgit v1.1