1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
-- | ASN1 utils for TLS
module Network.TLS.Util.ASN1 (
decodeASN1Object,
encodeASN1Object,
) where
import Data.ASN1.BinaryEncoding (DER (..))
import Data.ASN1.Encoding (decodeASN1', encodeASN1')
import Data.ASN1.Types (ASN1Object, fromASN1, toASN1)
import Network.TLS.Imports
-- | Attempt to decode a bytestring representing
-- an DER ASN.1 serialized object into the object.
decodeASN1Object
:: ASN1Object a
=> String
-> ByteString
-> Either String a
decodeASN1Object name bs =
case decodeASN1' DER bs of
Left e -> Left (name ++ ": cannot decode ASN1: " ++ show e)
Right asn1 -> case fromASN1 asn1 of
Left e -> Left (name ++ ": cannot parse ASN1: " ++ show e)
Right (d, _) -> Right d
-- | Encode an ASN.1 Object to the DER serialized bytestring
encodeASN1Object
:: ASN1Object a
=> a
-> ByteString
encodeASN1Object obj = encodeASN1' DER $ toASN1 obj []
|
