summaryrefslogtreecommitdiff
path: root/TLSA.hs
diff options
context:
space:
mode:
Diffstat (limited to 'TLSA.hs')
-rw-r--r--TLSA.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/TLSA.hs b/TLSA.hs
index 16cc568..1ef6fb4 100644
--- a/TLSA.hs
+++ b/TLSA.hs
@@ -89,8 +89,8 @@ instance Enum Selector where
89 toEnum 1 = SubjectPublicKeyInfo 89 toEnum 1 = SubjectPublicKeyInfo
90 toEnum n = Selector (toEnum n) 90 toEnum n = Selector (toEnum n)
91 91
92-- | Is 'associationData' the an object of the form specified by 'Selector' or 92-- | Is 'associationData' an object of the form specified by 'Selector' or is
93-- is it only a hash of it? 93-- it only a hash of it?
94data MatchingType 94data MatchingType
95 = Match_Exact 95 = Match_Exact
96 | Match_SHA256 96 | Match_SHA256
@@ -112,9 +112,9 @@ instance Enum MatchingType where
112-- | The parsed RDATA field of a TLSA DNS resource record (type 52) as 112-- | The parsed RDATA field of a TLSA DNS resource record (type 52) as
113-- described in RFC 6698. 113-- described in RFC 6698.
114-- 114--
115-- Use the 'match' function uses 'selector', 'matchingType' and 115-- The 'match' function uses 'selector', 'matchingType' and 'associationData'
116-- 'associationData' to implement a predicate on certificates obtained via the 116-- to implement a predicate on certificates obtained via the TLS protocol. The
117-- TLS protocol. The 'certUsage' field indicates what that predicate means. 117-- 'certUsage' field indicates what that predicate means.
118data TLSA = TLSA 118data TLSA = TLSA
119 { certUsage :: CertUsage 119 { certUsage :: CertUsage
120 , selector :: Selector 120 , selector :: Selector