Don't try to JSON-encode error messages.

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) ->