diff options
| author | Linus Nordberg <linus@nordu.net> | 2016-03-27 19:27:30 +0200 |
|---|---|---|
| committer | Linus Nordberg <linus@nordu.net> | 2016-04-07 16:06:12 +0200 |
| commit | 0573cda1b335a9dfbcc33d5b61964dcaae2ed165 (patch) | |
| tree | a02169dd7464a54a5b8abf6dc4862f8f64982198 /src/catlfish.erl | |
| parent | e6b1d5a4a8227603eaeb986e9594b595e847832b (diff) | |
WIP
Diffstat (limited to 'src/catlfish.erl')
| -rw-r--r-- | src/catlfish.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/catlfish.erl b/src/catlfish.erl index e3b5939..711deaa 100644 --- a/src/catlfish.erl +++ b/src/catlfish.erl @@ -286,7 +286,7 @@ entryhash_from_entry(PackedEntry) -> crypto:hash(sha256, [Cert | Chain]). %% Private functions. --spec pack_entry(normal|precert, binary(), binary(), [binary()]) -> binary(). +-spec pack_entry(normal|precert, binary(), binary(), [binary()]) -> list(). pack_entry(Type, MTLText, EndEntityCert, CertChain) -> [{<<"MTL1">>, MTLText}, {case Type of @@ -297,7 +297,7 @@ pack_entry(Type, MTLText, EndEntityCert, CertChain) -> list_to_binary( [tlv:encode(<<"X509">>, E) || E <- CertChain])}]. --spec unpack_entry(binary()) -> {normal|precert, binary(), binary(), [binary()]}. +-spec unpack_entry(list()) -> {normal|precert, binary(), binary(), [binary()]}. unpack_entry(Entry) -> [{<<"MTL1">>, MTLText}|Rest1] = Entry, [{EECType, EndEntityCert}|Rest2] = Rest1, |