x509 1.4.7 → 1.4.8

raw patch · 2 files changed

+5/−9 lines, 2 files

Files

• Data/X509/DistinguishedName.hs +4/−8
• x509.cabal +1/−1

@@ -66,18 +66,14 @@ parseDN = DistinguishedName <$> onNextContainer Sequence parseDNInner  parseDNInner :: ParseASN1 [(OID, ASN1CharacterString)]-parseDNInner = do-    n <- hasNext-    if n-        then liftM2 (:) parseOneDN parseDNInner-        else return []+parseDNInner = concat `fmap` getMany parseOneDN -parseOneDN :: ParseASN1 (OID, ASN1CharacterString)-parseOneDN = onNextContainer Set $ do+parseOneDN :: ParseASN1 [(OID, ASN1CharacterString)]+parseOneDN = onNextContainer Set $ getMany $ do     s <- getNextContainer Sequence     case s of         [OID oid, ASN1String cs] -> return (oid, cs)-        _                        -> throwError "expecting sequence"+        _                        -> throwError ("expecting [OID,String] got " ++ show s)  encodeDNinner :: DistinguishedName -> [ASN1] encodeDNinner (DistinguishedName dn) = concatMap dnSet dn

@@ -1,5 +1,5 @@ Name:                x509-Version:             1.4.7+Version:             1.4.8 Description:         X509 reader and writer License:             BSD3 License-file:        LICENSE