diff options
| author | Linus Nordberg <linus@nordu.net> | 2016-01-19 17:24:06 +0100 |
|---|---|---|
| committer | Linus Nordberg <linus@nordu.net> | 2016-08-18 14:46:26 +0200 |
| commit | 31e1927e1a163c72360b2aea8f87701e4da2a6fb (patch) | |
| tree | 2c0f9e8afd0b9c54dfdef1e96377e668bb2f5718 /src/compat.erl | |
| parent | 0124ba48d6751b1d5cb4e8a26945562f4d1b05f3 (diff) | |
Rename module compat -> catlfish_compat.
Can't have two modules with the same name in a release.
Diffstat (limited to 'src/compat.erl')
| -rw-r--r-- | src/compat.erl | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/src/compat.erl b/src/compat.erl deleted file mode 100644 index bbb58a1..0000000 --- a/src/compat.erl +++ /dev/null @@ -1,27 +0,0 @@ --module(compat). --export([unpack_issuer/1, unpack_signature/1]). --include_lib("public_key/include/public_key.hrl"). - -unpack_issuer(Issuer) -> - unpack_issuer(erlang:system_info(otp_release), Issuer). -unpack_signature(Signature) -> - unpack_signature(erlang:system_info(otp_release), Signature). - -%% @doc Dig out alg, params and key from issuer. -unpack_issuer("17", Issuer) -> - #'SubjectPublicKeyInfo'{ - algorithm = #'AlgorithmIdentifier'{algorithm = Alg, parameters = Params}, - subjectPublicKey = {0, Key}} = Issuer, - {Alg, Params, Key}; -unpack_issuer("18", Issuer) -> - #'SubjectPublicKeyInfo'{ - algorithm = #'AlgorithmIdentifier'{algorithm = Alg, parameters = Params}, - subjectPublicKey = Key} = Issuer, - {Alg, Params, Key}. - -%% @doc Unpack a #'Certificate'.signature, return the signature. -unpack_signature("17", Signature) -> - {_, Sig} = Signature, - Sig; -unpack_signature("18", Signature) -> - Signature. |