diff options
Diffstat (limited to 'KeyRing.hs')
-rw-r--r-- | KeyRing.hs | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -1478,8 +1478,12 @@ parseCertBlob comp bs = do | |||
1478 | cert <- either (const Nothing) (Just . fst) (fromASN1 asn1') | 1478 | cert <- either (const Nothing) (Just . fst) (fromASN1 asn1') |
1479 | let _ = cert :: X509.Certificate | 1479 | let _ = cert :: X509.Certificate |
1480 | notBefore :: UTCTime | 1480 | notBefore :: UTCTime |
1481 | #if MIN_VERSION_x509(1,5,0) | ||
1481 | notBefore = toUTC ( timeFromElapsedP (timeGetElapsedP vincentTime) :: CTime) -- nanoToUTCTime nano | 1482 | notBefore = toUTC ( timeFromElapsedP (timeGetElapsedP vincentTime) :: CTime) -- nanoToUTCTime nano |
1482 | where (vincentTime,_) = X509.certValidity cert | 1483 | where (vincentTime,_) = X509.certValidity cert |
1484 | #else | ||
1485 | (notBefore,_) = X509.certValidity cert | ||
1486 | #endif | ||
1483 | case X509.certPubKey cert of | 1487 | case X509.certPubKey cert of |
1484 | X509.PubKeyRSA key -> do | 1488 | X509.PubKeyRSA key -> do |
1485 | let withoutkey = | 1489 | let withoutkey = |