From 13f7f0767c4e84a7d6dde44044ddec81e2e00491 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Sat, 20 Jun 2015 19:39:25 -0400
Subject: fixed build

---
 KeyRing.hs | 4 ++++
 1 file changed, 4 insertions(+)

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 =
-- 
cgit v1.2.3