From 31e1927e1a163c72360b2aea8f87701e4da2a6fb Mon Sep 17 00:00:00 2001 From: Linus Nordberg Date: Tue, 19 Jan 2016 17:24:06 +0100 Subject: Rename module compat -> catlfish_compat. Can't have two modules with the same name in a release. --- src/compat.erl | 27 --------------------------- 1 file changed, 27 deletions(-) delete mode 100644 src/compat.erl (limited to 'src/compat.erl') 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. -- cgit v1.1