certificate 1.2.6 → 1.2.7

raw patch · 2 files changed

+10/−10 lines, 2 filesdep ~basePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: base

API changes (from Hackage documentation)

Files

• Data/Certificate/X509/Cert.hs +9/−9
• certificate.cabal +1/−1

@@ -231,15 +231,15 @@                 _              -> throwError "expecting sequence"  parseCertHeaderValidity :: ParseASN1 (Time, Time)-parseCertHeaderValidity = do-        n <- getNextContainer Sequence-        case n of-                [ UTCTime t1, UTCTime t2 ] -> return (convertTime t1, convertTime t2)-                _                          -> throwError "bad validity format"-        where convertTime (y,m,d,h,mi,s,u) =-                let day = fromGregorian (fromIntegral y) m d in-                let dtime = secondsToDiffTime (fromIntegral h * 3600 + fromIntegral mi * 60 + fromIntegral s) in-                (day, dtime, u)+parseCertHeaderValidity = getNextContainer Sequence >>= toTimeBound+    where toTimeBound [ UTCTime t1, UTCTime t2 ]                 = return (convertTime t1, convertTime t2)+          toTimeBound [ GeneralizedTime t1, GeneralizedTime t2 ] = return (convertTime t1, convertTime t2)+          toTimeBound _                                          = throwError "bad validity format"++          convertTime (y,m,d,h,mi,s,u) =+              let day   = fromGregorian (fromIntegral y) m d+                  dtime = secondsToDiffTime (fromIntegral h * 3600 + fromIntegral mi * 60 + fromIntegral s)+               in (day, dtime, u)  parseCertHeaderSubjectPK :: ParseASN1 PubKey parseCertHeaderSubjectPK = onNextContainer Sequence $ do

@@ -1,5 +1,5 @@ Name:                certificate-Version:             1.2.6+Version:             1.2.7 Description:     Certificates and Key reader/writer     .