fixed typos

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
     toEnum 1   = SubjectPublicKeyInfo
     toEnum n = Selector (toEnum n)
 
--- | Is 'associationData' the an object of the form specified by 'Selector' or
--- is it only a hash of it?
+-- | Is 'associationData' an object of the form specified by 'Selector' or is
+-- it only a hash of it?
 data MatchingType
     = Match_Exact
     | Match_SHA256
@@ -112,9 +112,9 @@ instance Enum MatchingType where
 -- | The parsed RDATA field of a TLSA DNS resource record (type 52) as
 -- described in RFC 6698.
 --
--- Use the 'match' function uses 'selector', 'matchingType' and
--- 'associationData' to implement a predicate on certificates obtained via the
--- TLS protocol.  The 'certUsage' field indicates what that predicate means.
+-- The 'match' function uses 'selector', 'matchingType' and 'associationData'
+-- to implement a predicate on certificates obtained via the TLS protocol.  The
+-- 'certUsage' field indicates what that predicate means.
 data TLSA = TLSA
     { certUsage       :: CertUsage
     , selector        :: Selector