diff --git a/Data/X509/CertificateStore.hs b/Data/X509/CertificateStore.hs
--- a/Data/X509/CertificateStore.hs
+++ b/Data/X509/CertificateStore.hs
@@ -2,6 +2,7 @@
 
 module Data.X509.CertificateStore (
     CertificateStore,
+    isEmptyCertificateStore,
     makeCertificateStore,
     readCertificateStore,
     readCertificates,
@@ -37,6 +38,11 @@
 data CertificateStore
     = CertificateStore (M.Map DistinguishedName SignedCertificate)
     | CertificateStores [CertificateStore]
+
+isEmptyCertificateStore :: CertificateStore -> Bool
+isEmptyCertificateStore (CertificateStore m) = M.null m
+isEmptyCertificateStore (CertificateStores []) = True
+isEmptyCertificateStore _ = False
 
 #if MIN_VERSION_base(4,9,0)
 instance Semigroup CertificateStore where
diff --git a/crypton-x509-store.cabal b/crypton-x509-store.cabal
--- a/crypton-x509-store.cabal
+++ b/crypton-x509-store.cabal
@@ -1,5 +1,5 @@
 Name:                crypton-x509-store
-version:             1.6.10
+version:             1.6.11
 Description:         X.509 collection accessing and storing methods for certificate, crl, exception list
 License:             BSD3
 License-file:        LICENSE