Merge branch 'master' of /home/linus/repo/ctls

Conflicts:
	src/v1.erl

1 files changed, 5 insertions, 2 deletions

diff --git a/src/v1.erl b/src/v1.erl
index 57458bb..32dabab 100644
--- a/src/v1.erl
+++ b/src/v1.erl
@@ -18,7 +18,9 @@ add_chain(SessionID, _Env, Input) ->
                        {id, base64:encode(SPT#spt.logid)},
                        {timestamp, SPT#spt.timestamp},
                        {extensions, []},
-                       {signature, base64:encode(SPT#spt.signature)}],
+                       {signature,
+                        base64:encode(
+                          list_to_binary(plop:serialise(SPT#spt.signature)))}],
                   jiffy:encode({R});
               _ -> html("add-chain: missing input: chain; see RFC 6962", Input)
           end,
@@ -36,7 +38,8 @@ get_sth(SessionID, _Env, _Input) ->
     R = [{tree_size, Treesize},
          {timestamp, Timestamp},
          {sha256_root_hash, base64:encode(Roothash)},
-         {tree_head_signature, Signature}],
+         {tree_head_signature, base64:encode(
+                                 list_to_binary(plop:serialise(Signature)))}],
     deliver(SessionID, jiffy:encode({R})).
 
 get_sth_consistency(SessionID, _Env, _Input) ->