1 files changed, 8 insertions, 1 deletions

diff --git a/KeyRing.hs b/KeyRing.hs
index 857c755..2deb12b 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -145,8 +145,13 @@ import qualified Data.Text as T ( Text, unpack, pack,
 import qualified System.Posix.Types as Posix
 import System.Posix.Files ( modificationTime, getFileStatus, getFdStatus
         , setFileCreationMask, setFileTimes )
+#if MIN_VERSION_x509(1,5,0)
+import Data.Hourglass.Types
+import Data.Hourglass
+#endif
 #if MIN_VERSION_unix(2,7,0)
 import System.Posix.Files ( setFdTimesHiRes )
+import Foreign.C.Types ( CTime(..), CLong, CInt(..) )
 #else
 import Foreign.C.Types ( CTime(..), CLong, CInt(..) )
 import Foreign.Marshal.Array ( withArray )
@@ -1472,7 +1477,9 @@ parseCertBlob comp bs = do
     let asn1' = drop 2 asn1
     cert <- either (const Nothing) (Just . fst) (fromASN1 asn1')
     let _ = cert :: X509.Certificate
-        (notBefore,_) = X509.certValidity cert
+        notBefore :: UTCTime
+        notBefore =  toUTC ( timeFromElapsedP (timeGetElapsedP vincentTime) :: CTime) -- nanoToUTCTime nano
+            where (vincentTime,_) = X509.certValidity cert
     case X509.certPubKey cert of
         X509.PubKeyRSA key -> do
             let withoutkey =