-- | -- Module : Data.X509.Internal -- License : BSD-style -- Maintainer : Vincent Hanquez <vincent@snarc.org> -- Stability : experimental -- Portability : unknown -- module Data.X509.Internal ( module Data.ASN1.Parse , asn1Container , OID ) where import Data.ASN1.Types import Data.ASN1.Parse -- | create a container around the stream of ASN1 asn1Container :: ASN1ConstructionType -> [ASN1] -> [ASN1] asn1Container ty l = [Start ty] ++ l ++ [End ty]