fixed build

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
     cert <- either (const Nothing) (Just . fst) (fromASN1 asn1')
     let _ = cert :: X509.Certificate
         notBefore :: UTCTime
+#if MIN_VERSION_x509(1,5,0)
         notBefore =  toUTC ( timeFromElapsedP (timeGetElapsedP vincentTime) :: CTime) -- nanoToUTCTime nano
             where (vincentTime,_) = X509.certValidity cert
+#else
+        (notBefore,_) = X509.certValidity cert
+#endif
     case X509.certPubKey cert of
         X509.PubKeyRSA key -> do
             let withoutkey =