summaryrefslogtreecommitdiff
path: root/KeyRing.hs
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2015-06-20 19:39:25 -0400
committerjoe <joe@jerkface.net>2015-06-20 19:39:25 -0400
commit13f7f0767c4e84a7d6dde44044ddec81e2e00491 (patch)
tree5561353817992bb503d42805322e9fb63c19e5c4 /KeyRing.hs
parent94c9359ba0e395c33e895bdc6bfb84cb978fbc08 (diff)
fixed build
Diffstat (limited to 'KeyRing.hs')
-rw-r--r--KeyRing.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/KeyRing.hs b/KeyRing.hs
index 2deb12b..ae602a5 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -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 =