summaryrefslogtreecommitdiff
path: root/src/v1.erl
diff options
context:
space:
mode:
Diffstat (limited to 'src/v1.erl')
-rw-r--r--src/v1.erl13
1 files changed, 8 insertions, 5 deletions
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) ->